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ABSTRACT 


TEE RE TUN one ee Re PPReT ING “SFP°GN “Rk61t/RRBe-RKO7 
BRYoe> BrAcNoStic. ARE PREREGUTSTTES 10. THE RUNNING OF THis 
ROCHRE cONFRGLTERSS rE Gout BURY Be PebreD 1W'RBrskTEBS 


TEs (et a ee IN H DIAGNOSTIC OR 
THE TESTS PERFORMED MAINLY FUNCTIONALLY ORIENTED BUT 
SH lh Ve Tae CRRORS. EN THESE cages. 

Baty traGbea> BYaRAGS TE ASOEOTE MEN °"RESEt ae 


of [Bene ROLLER 
ey ma ean "oR "garage? “iis 


CONDITIONS. ARE Nery * Bur T re HORVTOURL ie TEST TDESERIPTIONS TONS 
ponce ir" WHAT ERROR IS BEING "PorceD AND THE PROCEDURE USED T0 


CAUTION 


= | Leonie cobRUG® its AE “ThcieEPeSTE UTR 


IN THE DRIVE — MAY BE INVALID, OR THE DRIVE MAY hor BE 


REQUIREMENTS 
HARDWARE REQUIREMENTS 
1_ SY re ae (16K MEMORY) 
CONSOLE Y 


CL KW COPT NAL ) 
bine ¢ ee thet apron ) 
aie 0s 
aut te TO 8 RKO&-RKO7 DRIVES 
FORMATTED RKO6K ON EACH DRIVE 


PRELIMINARY PROGRAMS 


SEQ 0003 
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THE RK611 DISKLESS CONTROLLER DIAGNOSTIC (ALL PARTS) AND THE 


RKO&-RKO7 DRIVE DIAGNOSTIC (ALL PARTS) SHOULD HAVE RUN 


UNI 

SUCCESSFULLY 
OPERATING PROCEDURE 
LOADING PROCEDURE 


THE PROGRAM CAN BE LOADED FROM BINARY TAPE USING THE ABSOLUTE 
LOADER OR FROM XXDP MEDIA SUPPORTED BY XXDP. 


IT CAN L D AND RUN UNDER APT OR ACT AND IT CAN BE 
CHAINED BY XX 


STARTUP PROCEDURE 
PROGRAM noize sfioeas" Is (8). THIS START WILL 


auton han ASSUMES re al SS RUNNING UNDER APT. THE 
VECTOR ADDRESS 


s3, 
Stines wee 7 ao 210, AND 4’RESPECTIVELY). IF 
media 1S’RKO6 (PROGRAM LOADED FROM 
1S BNR ot EST 
LOCATION 204(8) IS THE PROGRAM RESTART. 
LOCATION 2148) THE PARAMETERIZATION START LOCATION. _ THE 


OPERATOR Be ASKED 9 ENTI a olen BUS ADDRESS, VECTOR 
F WAS LOADED FROM 


Bitte ot ia HFCG BE, GRAPES TOSPRUM® HM, CHRTRBGE On 


LOCATION The PR THE PHASE LOC LOOP CLOCK ADJUSTMENT 


TART. T KER T cate TESTS AND T a 
aa BOOS TRENT “ROUTINE, OTHE pROGRHN, NILE CONTINUE 


b DRIVER, THAT ARE TO BE TESTED MUST BE ON-LINE, READY, AND 
LOnKe a 4 IF ALL THREE CONDITIONS ARE’ NOT MET; THAT 
I T TESTED. 
CONSOLE SWITCH REGISTER 
ie c SW rot REGISTER IS USED TO PROVIDE PROGRAM CONTROL 
DESCRIBED BELOW 


SW1S - HALT ON creer 
SWi4 - LOOP ON TEST 


Wi3 - INHIBIT ERROR 

ais - ABORT PROGRAN BPTER 20 ERRORS 

SWil - aie 3 ITERATIONS 

SW1O0 - BELL 

SWOS - LOOP ON ERROR 

SWO8 - EXECUTE TEST NUMBER SPECIFIED IN SW<7-0>. 


SEQ 0004 
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SW<7-0> - EXECUTE THIS TEST IF SWO8 SET. 


XECUTING A Re OTe tg MUST USED a CAUTION. S§S 
ESTS REQUIRE ORMAT THE PACK IN A 
OTHERS fo BE” UN RANNeR On me 1 teers pee REQUIRE 
THE 0 ro N - "test bese VES-Al TION. IT_IS 
Ten SEQUENCE THE 


Tie" 
PiRs TIME RET 


— ian sor TERN he (BRE-ON THE DAL OR ive gus FOR 


eon 


pou LIKEWI 
QUENT NT TOIT: cote” le ies TREADS THe THE 


BAD SECTOR 
FOLLOTNG TESTS ca TEES Tests, taVING BEEN ofA ON 


SOFTWARE’ SWITCH REGISTER 
IF THE PROGRAM IS Ou BS Teess a ae G ; he 


AN 11704 OR 117 {DETERH 
iis ek WILL USE 
:S F THRE” mits TCH THE PRESEN SeTTINes or THE , Sor THARE® 
SEN na sti ae pi ee Hott oi 
PRIORITY INTERRUPT Me OPP ueRe” o 7H ITCH 
VALUES ARE E! “ENTE NUMBER Int RESPONSE 
FROM NTE FeO 8 H PONT TRbuTINe 
SWR = NNNNNN NEW =’ 
EACH SWITCH ogy pe ARE ENTERE THE ENTIRE SWITCH 
REGIS ENTERE: EEADING ZEROES ARE NOT 


Bul ia "Site ENR. 


ON PROCE 7HETH He HARDWARE ITCH GISTERS THE ’SOFTWARE’ 
SWITCH GI EP | IF THE PROGRAM FINDS ALL I6 
SWITCHES. pos TION, Out eirteti REGISTER REFERENCES 
WILL REGISTER AND THE PROCEDURES 


BESCRIBED ABOVE i Taree 
CONTROL C (tC) OPERATION 


IF tC IS TyreR AT ANY TIME DURING THE PROGRAM EXECUTION THE 
PROGRAM IS Hi mL TED Re LY. IF A MON7TOR_IS ay ea (XXDP 
ae ACT, APT) RETURNS CORI MONITOR. 
IF MONITOR IS PRESENT, THE CPU IS HALTED: ’ DEPRESSING THE 
CONTINUE nREY WILL DO A PROGRAM RESTART. 


CONTROL S (¢S) OPERATION 
IF tS IS TYPED AT ANY TIME THE PROGRAM WILL GO INTO A sree 


“> 


SEQ 0005S 


, 
Oey > 
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LOOP UNTIL A CONTROL @ (tQ) IS TYPED. 


CONTROL @ (tQ) OPERATION 


IF A tS HAS BEEN TYPED, TYPING THE ft@ CANCELS THE STALL 
INITIATED BY THE 5S. 


UNIBUS ADDRESSES 
STANDARD UNIBUS ADDRESSES ARE ASSUMED FOR THE KW11l-L AND MM11 
PTIONS. THESE ADDRESSES MAY BE CHANGED BY CHANGE us 


0 
APPROPRIATE MEMORY LOCATIONS. THE FOLLOWING TAGS 
LOCATIONS HAVE BEEN USED: 


KW11-L TRS LOCATIO: 
UNIBUS ADDRESS KWLADD 1710 
VECTOR ADDRESS KWLVEC 1712 

EXECUTION TIME 

THE FIRST PASS OF THE PROGRAM FOR ONE DR 
6S SECONDS AND EACH SUBSEQUENT PASS IS Al 

20 SECONDS. 

THE EXECUTION TIME FOR MULTIPLE DRIVES IN THE FIRST PASS IS: 

((NUMBER OF DRIVES) X 4S SEC) + 20 SEC 

FOR SUBSEQUENT PASSES THE RUN TIME IS THE PRODUCT OF 2 MINUTES 

20 SECONDS TIMES THE NUMBER OF DRIVES PLUS eS SECONDS FOR EACH 

DRIVE AFTER THE FIRST. 

PROGRAM DESCRIPTION 


oHe ES EOLLONING TEST SEQUENCE IS EXECUTED ASSUMING TWO OR MORE 


ye IS APPROXIMATELY 


I 
PPROXIMATELY 2 MINUTES 


FIRST PASS - FIRST DRIVE: 
ALL TESTS UP TO THE MULTI-DRIVE OPERATIONS ARE PERFORMED ONCE. 


FIRST PASS - INING DRIVES: 
st ATUS VALID AbESt UP TO THE MULTI-DRIVE OPERATIONS ARE 
ERFORMED ONCE ON EACH DRIVE. 


THEN MULTI-DRIVE OPERATIONS ARE PERFORMED ONCE ON EACH 
COMBINATION OF DRIVES. 

SECOND AND ALL SUBSEQUENT PASSES: 

THE SAME SEQUENCE OF TESTING IS REPEATED cer FOR TEST 
ITERATIONS WHICH ARE SPECIFIED FOR EACH TEST 


RE GL AGERE ERE REE LEEKS RAK AKA E KARA KALE RARE ALA RELA LERARLL EEE 


SEG 0006 
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*#*BASIC INTERFACE AND OPTION TESTS 
He He He HE He HE He SE Se HH a A SH a 


TEST 1 RK611 BASE ADDRESS TEST 


CHECK THAT READING THE RK611 pase ADDRESS (RKCS1) DOES 
NOT CAUSE A NON-EXISTANT MEMORY TRAP. 


ThfenRuPY VECTOR FOR OF ME RRETT I Ser° T Hue EXPECTE 


HH RRR ERAGE RAR ARREE RARER RREELE RE 


#*#STATUS VALID TESTS 
36 eH SE 06 HE AE SE 0 A a a a a a a a a a a a a 


TEST 3 SELECT ALL DRIVES 


eat ont oat N APT AUTOMATIC iS Se ieent ree 


sept BH "ORPUIAY EGE SURE RTM blfad 


DRIVE IS CYCLED VALID 


F_RUNNING a APT AUTOMATIC ENVIRONMENT DRIVES 
ADEN NEB OP? aD NG OBLE AGE TESTED FOR NO ERROR, DRIVE 
IF LOCATION 41 INDICATES THE _XXDP 
eta) Was USED: Se lia Benet sue6" 

We Test 43 Ner UES Eee RESTART (204) WILL RETAI 

HE PARAM START IS USED, THE OPE MUST EITHER 
emg: Aa et a Edutchote QoP1cESTE? OF 
VALID Pio DETERM! Ne THE Weer Status oF oRIVE & "ta nt ts 


ALL ORIVES TO BE TESTED MUST BE ON- Oi Te bes CVE ED 4 


CORUNA Ca cy RG mgt Mem 


ROR DETECTION. 
FeceD UP OR ARE WRITE C PockeD ARE NOT OW ESTED. 


AT COMPLETION THE TEST BESSA ett tks. BE GIVEN TO 
IDENTIFY THE ORIVES TO USE 


NOTE: THIS TEST MUST BE RUN AT LEAST ONCE BEFORE ANY 
OTHER TEST THAT FOLLOWS. 
THE DETERMINATION OF WHETHER EACH DRIVE IS AN 
RKO& OR RKO7 IS MADE IN THIS TEST, AND 


SEQ 0007 





CZR6KEO RK& FCTNL CTRL DIAG 
10-JAN-78 09:35 


CZR6KE.Pil 


SESCLCECLCLSSCLCLO£ 


TUTTI ee ee 
MSWMM -OWONCU CWO 


££ 


MACY11 30A( 1052) 


19-JAN-78 09:S7 PAGE 8 


TEST 4 


TEST S 


TEST 6 


A TABLE IS FILLED ACCORDINGLY. 
RELEASE ALL DRIVES 


RELEASE ALL DRIVES... MAKE SURE NO ERROR SETS AND 
STATUS VALID IS RESET. 


NON-STANDARD MESSAGES AND SVAL 

fick. on OF THE AVAILABLE DRIVES AND GET NON-STANDAD 
MESS: MAKE S NO ERROR OCCURS AND STATUS VALUD 
DOES ART: S AND THAT NON-STANDARD MESSAGES CAUSE 
STATUS VALID TO RESET. 

WRITING CS2 AND STATUS VALID 


SELECT et AVAILABLE DRIVE. MAKE SURE STATUS VALID IS 
2A Werte one OMMAND AND STATUS REGISTER 2. MAKE SURE 
ATUS VALID RESETS. 


HH HE HE HH HE HEH HEHE HEHE HE HE HE HEHEHE HEH RARE EKER EERE RRR RRER AER 


*#*CONTROLLER ERROR TESTS 
36 He HE 36 SE 2 J Se HE 0 A A A 0 9 a a a a HE 


TEST 7 


TEST 10 


TEST 11 


TEST le 


DRIVE TYPE ERROR 


CREATE A DRIVE TYPE ERORR MAKE SURE DRIVE TYPE ERROR 
SETS AND STATUS VALID SETS. 


STATUS VALID AND PARITY ERROR 

ISSUE a LECT al? AN RYRRLLE Ee DRIVE W WITH BAD PARITY. 

ATTENTION, DRIVE 

aie RRR AUPT AND 'STATUS 

tir dbeubt Rack LEAR. MAKE SURE RIVE 

ba trees SEL CT IVE 

MAKE ATTENTION, DRIVE 

Status ‘STATUS a EERND ERAR’ ts RESETS 

Ex ne NON- oO BARD MESSAGES 

DRIVE GET ERRUPT AND ATTENTION ARE 

Ser NTTON WITH DRIVE CLEAR. REPEAT FOR 
LL “uf aah 


UNIT FIELD ERROR ON RELEASE 

ISSUE A SUBSYSTEM CLEAR. SELecT AN AVAILABLE DRIVE. 

PUT CONTROLLER _IN DIAGNOSTIC MODE. ISSUE A RELEASE 
COMMAND. CLOCK OUGH PHASE ADDRESS 2. TURN OFF 
DIAGNOSTIC MODE. MAKE SURE UNIT FIELD ERROR SETS. 

UNIT FIELD ERROR ON SELECT 


ISSUE A SUBSYSTEM CLEAR. SELECT AN AVAILABLE ODORIVE. 


SEQ 0008 
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428 PUT CONTROLLER IN DIAGNOSTIC MODE. ISSUE A SELECT 
429 COMMAND WITH MESSAGE ID = 3 AND ORIVE SELECTED = O. 
430 CLOCK THROUGH PHASE ADDRESS 6. TURN OFF DIAGNOSTIC 
433 

438 MODE. MAKE SURE UNIT FIELD ERROR SETS. 

436 RRR EKKRRRERKG RARER RRR AARRRAL ERK ARERERERARRRERRAREKRHRHKE 
437 *%#ATTENTION HANDLING BY CONTROLLE 

u38 LEKLEKEKERKRKAKRRERKRAERR SERRA KRARRARKKARAALEREREREREEKEKRERKKE KE RES 
430 TEST 13 DOUBLE INTERRUPT 

442 ISSUE A YSTEM CLEAR. ISSUE A CALIBRATE. MAKE 
443 SURE STATUS VALID IS SET. CHECK THAT SECOND INTERRUPT 
444 OCCURS. AFTER SECOND INTERRUPT CHECK THAT STATUS 
44S VALID sit SET I LECT AND MAKE SURE STATUS 
446 VALID SETS. LEAR DRIVE. CHECK THAT ORIVE STATUS 
42 CHANGE SETS (StF 14 OF DRIVE STATUS REGISTER) 

a9 TEST 14 SINGLE INTERRUPT FROM ATTENTION 

451 DO A SEEK To CYLINDER WAIT FOR INTERRUPT FROM 
452 DRIVE ATT OWeR PRIOR RITY AGAIN AND MAKE SURE 
We3 ANOTHER IN OPT poES NOT OCC CLEAR DRIVE. 

ues TEST 1S RESET ATTENTIONS WITH UNIBUS INIT 

457 DO A SEEK TO CYLINDER O ON ALL AVAILIABLE ORIVES. 
58 ISSUE A RESET. MAKE SURE ALL ATTENTION RESET. 

460 KEKE RRLLEGEG GER RRRR RRR RR RRRRER RARER KER AARKRRKKKKE 
461 *¥*#ILLEGAL DISK SS ERROR TESTS 

ues KKEMLKLKELRERERH GK GLEE RK DRL GHGS RRM EKA REA E EKER AE AKA KH KEKE KEEE 
ue4 TEST 16 ILLEGAL DISK ADDRESS (PART 1) 

466 ISSUE A SE CYLINDER 0 MAKE SURE ILLEGAL 
467 BDRESS ERROR EEK "TnGone PLETE SETS. CLEAR 
468 CONT LER AND ANG CLEAR OR 

469 CHECK ECKING | THAT BOTH IDAE AND REFER INCOMPLETE SET OR 
470 DAE BONE SETS FOR HEADS 4, S, AND 6. 

uze TEST 17 ILLEGAL DISK ADDRESS (PART 2) 

474 ISSUE A SEEK TO CY R 1000, HEAD O. MAKE SURE 
175 ILLEG GAL Bisk ADDRESS EAR RROR SETS. CLEAR CONTROLLER AND 
477 THIS: TEST IS BYPASSED BY THE RKO7 CONTROLLER BECAUSE 
ize IT DOES NOT RECOGNIZE ANY ILLEGAL DISK ADDRESS. 

480 RKKEREKEKKRKE EEK RE RARER RAKRR RR RREK AAR EKRKERARKARRARRRKRRERKKEE 
481 *¥*WRITE HEADER TEST 

482 KEERKKEEREKRKRKKRKEK RRL KKK RAKES RRRKA RHR KRKRKKL AHR ERARAASRAKRA RARE 


a 
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TEST 20 READ BAD SECTOR INFORMATION 


ISSUE A READ _DATA_OF 400 WORDS TO CYLINDER 632, TRACK 
SectoR Cee. THE FACTORY DETECTED BAD SECTOR FILE, 26 
CYLINDER 1456 IS USED FOR THE RKO7. 


F_AN ERROR OCC READ SECTOR 2 6, OR 10(8) 
ONTIC A SUCCES OL aD Is pone.” IF’ NONE READ 
SUCCESSE VE THIS DRIVE FROM fest’ alttigN A RE 


c, SHESI THAT THE PACK IS NOT AN ALIGNMEN 


PADK AND ST ENTRIES FOR LATER USE. 


BAD CTORS Fe SECTOR MODE, SOFTWARE DETECTED BAD 
SECT 5. SECTOR ROBE ono SOFTWARE DETECTED BAD 


Pee Sa° on eet oR THE NUMBER BA 
Ren 24 OR 26 SECTOR MO EXCEED 20(10) THE ORIVE IS 
REMOVED FROM TESTING. 


NOTE onal reas TEST IS RUN IN THE FIRST (QUICK VERIFY) 


TEST 21 FORMAT IN 26 SECTOR FORMAT 


FORMAT CYLI OER 312, TRACK O TRACK 1 FOR 26 SECTOR 
FORMAT. ORMAT AND THAT DATA LATE DID NOT 
OCCUR WITH WR 


ie HEADER ON IN READING DATA BUFFER 
AFTER READ HEADER. 


HH HE HEM HE HE HEHE HEHE HE HE eH HE EEE HEH HEE RRA EERE EERE REE RRES 


*#HEADER RECOGNITION TEST 
36 2 36 AE 3 9 SE 9 A 0 0 J A A a a a a a a a a aE 


TEST 22 BAD SECTOR ERROR 


FORMAT CYLINDER 312, TRACK O 
SECTOR O (BIT 15 OR’ WORD 2 OF 


ON SCRATCH PACK TO HAVE 
HEADER RESET) AND SECTOR 
RESET) TO 


1 (BIT 14 _OR WORD 2 OF HEADER BE BAD SECTORS 
AND ALL OTHER SECTORS GOOD. 

ISSUE A WRITE DATA_OR 4OO WORDS TO CYLINDER 312, TRACK 
0, fe on 0. E Sune SECTOR ERROR SETS. ISSUE 
A WRITE DATA TO CYLINDE TRACK O, SECTOR 1 OF 4O 
WORDS. MAKE SURE BAD SECTOR ERROR SET. ISSUE A WRITE 
DATA OF 400 WORDS," CYLINDER 0, TRAC » SECTOR 2 
MAKE SURE NO ERR ETS. 


TEST 23 HEADER VRC ERROR 


FORMAT CYLINDER 31 312, TRACK O, ON SCRATCH PACK TO HAVE 
16 SECTORS W D’HEADER VRC. ISSUE A WRITE DATA OF 
EACH OF THE SecrBRS WITH A BAD HE ADER VRC. MAKE SURE 
HEADER VRC ERROR SETS. ISSUE A WRITE DATA TO A GOOD 


SEQ 0010 
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TEST 24 


TEST 2S 


TEST 26 


TEST 27 


HEADER AND MAKE SURE NO ERROR OCCURS. 
BAD SECTOR ERROR AND HVRC ERROR 


poo) CYLI 12, TRACK O SUCH THAT SECTOR s ¥ HA 
BOTH A BAD Seer oR ERROR AND HEADER VRC. ISSUE A WRIT 


DATA TO CYLINDER O TRACK 0, SECTOR 0. MAKE SURE ONLY 
HEADER VRC ERROR SETS 


OPERATION INCOMPLETE 

FORMAT CYLINDER 312, TRACK O SUCH THAT SECTOR 21 HAS 
T WR ISSUE A WRITE DATA OF 400 TO 
CYLINER O, TRACK 0, SECTOR 21. MAKE SURE OPI SET. 

OPI WITH HVRC ERROR 


Format YLINDER 312, TRACK O Wi yuat He" ur pene VRC 
e PRESE NT AND AND SECTOR 17_HAS ORMAT. 


ea a CR eT aa 


HVRC IGNORE ON NON-ADDRESSED SECTOR 

T CYLINDER 312, TRACK O SUCH THAT SECTOR 20 HAS 

Ae "ABE ‘Bn No” fait E oA ATA OF 400 WORDS TO 

CYLINDE sis OF Ack pate MAKE SURE HVRC 
S NOT SET AT THE END OF Cue OP’ RaTtO 


MH HH HEHEHE HE HE HE EE HE HE ARR ER AAR R REE RA ELLER ERE KER 


#%DATA 


TRANSF E’ 


HHH HE HE HE He HEHE EH HE HE HE HE Ee HE EE RARER RRA ERRREELES 


TEST 30 


TEST 31 


TEST 32 


WRITE AND READ ONE SECTOR 


FORMAT CY’ 2 TRACK CYLINDER 313 
TRACK Mh TO RGREED WITH H 00 SECT TOR SNF ORMA ION. ISSUE 
A WRI TE 0A F ONE SECTOR ON CYLINDER 312, TRACK 

READ IT BACK MAKE SORE” 4 AGREES WITH WHAT IS 
WRITTEN. 

WRITE DATA WITH BUS ADDRESS INCREMENT INHIBIT 

ISSUE A WRITE DATA OF ONE SECTOR TO CYLINDER 312, 


TRACK 2 SECTOR 12 WITH INHIBIT BUS ADDRESS INCREMENT. 
READ OG pata CK TO MAKE SURE EVERY WORD I Fue SAME AND 


WRITE DATA ADDRESS GREATER THAN 32K 


SEQ 0011 
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£36 ISSUE A WRITE DATA OF 400 WORDS WITH ADDRESS = 177770. 
23. | SURE ECT DATA IS ON DISK. 

a NOTE: Tes .7 TES] Age QhhY EXECUTED IF MORE THAN 32K OF 
601 
eos TEST 33 REAG DATA ADDRESS GREATER THAN 32K 

6 ISSUE A TA OF 400 WORDS WITH ADDRESS = 177770. 
605 CHECK RENDRY POR CORREC HOANSFER. 

607 NOTE: THIS TEST IS ONLY EXECUTED IF MORE THAN 32K OF 
608 MEMORY IS PRESENT. 
610 TEST 34 WRITE DATA ADDRESS GREATER THAN 64K 

612 ISSUE A WRITE DATA OF 400 WORDS WITH ADDRESS = 377770. 
613 MAKE SURE CT DATA IS ON DISK. 

615 NOTE: THIS TEST ONLY EXECUTED IF MORE THAN 64K OF 
6 18 MEMORY IS SENT. 

618 TEST 35 READ DATA ADDRESS GREATER THAN 64K 

20 ISSUE A TA OF 400 WORDS WITH ADDRESS = 377770. 
eel CHECK ME RY POR OR CORRECT TRANSFER. 

: 4 
655 NOTE THIS TEST 3S ONLY EXECUTED IF MORE THAN 64K OF 
626 TEST 36 WRITE DATA ADDRESS GREATER THAN 96K 
p59 
ISSUE A WRIT TA ' WITH ADDRESS = 577770. 

eat Hare SURE AoE CT fate ON DISK. 

633 NOTE: THIS TEST ONLY EXECUTED IF MORE THAN 96K OF 
p34 MEMORY is BReStnt. 
636 TEST 37 READ DATA ADDRESS GREATER THAN 96K 
638 ISSUE A READ DATA OF 400 WORDS WITH ADDRESS = 577770. 
Bud CHECK MEMORY FOR CORRECT TRANSFER. 
642 NOTE: THIS TEST IS ONLY EXECUTED IF MORE THAN 96K OF 
p43 MEMORY IS PRESENT. 
pus TEST 40 PARTIAL SECTOR WRITE DATA 
64 ISSUE A WRITE DATA OF 103 WORDS TO CYLINDER 312, HEAD 
64 : BELTOR 0. MAKE SURE THE SECTOR WAS ZERO FILLED 
b4 ORRECTLY. 


SO 
651 ‘ TEST 41 PARTIAL SECTOR READ DATA 


I 
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WRITE CYLINDER 312, TRACK O SECTOR. ZERO WITH A KNOWN 
CONFIGURATION. ISSUE A READ DATA OF 103 WORDS TO 
CYLINDER 31 TRACK 0, SECTOR O. HARE SURE ONLY 103 
WORDS GET ERRED’TO MEMORY. 


TEST 42 WRITE DATA WITH NON-EXISTENT MEMORY 


ISSUE A WRITE DATA OF 1 WORD USING ADDRESS 776000. 
MAKE SURE NON-EXISTENT MEMORY SETS. 


TEST 43 READ DATA WITH NON-EXISTENT MEMORY 


ISSUE A READ DATA OF 1 WORD USING ADDRESS 776000. 
MAKE SURE NON-EXISTENT MEMORY SETS. 


TEST 44 UNIBUS PARITY ERROR 


WRITE DaTa » a9 ee WITH BAD PAR ISSUE A 
OSU ING AT A LOCATION 112 
WORDS BATION. WITH BAD PARITY. MAKE SURE 


THAT uNTBUS PAR Y ERROR SETS. 


NOTE: gH year d ONLY EXECUTED IF MEMORY PARITY 
ON EXISTS FOR BUFFER. 


HHH EH HE HE HE HE EE ARERR REE AE REL RRRERARALHEE 


*##MULTIPLE SECTOR OPE! 
36 He Se He HE AEH ME HE HE a A A eH a 26 a a a a a 


TEST 4S TWO SECTOR WRITE DATA (PART 1) 


ISSUE A WRITE DATA OF 1000 WORDS TO CYLINDER 312 
TRACK CTOR O. READ DATA BACK ONE SECTOR AT A 
TIME "MAKE SURE IT IS CORRECT. 


TEST 46 TWO SECTOR WRITE DATA (PART 2) 


SSUE A WRITE DATA OF 1 WORDS TO CYLINDER 312 
ine and SECTOR om AD DATA BACK ONE SECTOR AT A 
i MAK MID- 


RANSFER SEEK DID NOT TAKE 
TEST 47 TWO SECTOR WRITE DATA (PART 3) 


ISSUE 8 A WRITE DATA OF 401 WORDS TO CYL 
CTOR 10. READ DATA BACK ONE SECT 
Bae ek ZERO FILL OF SECOND SECTOR. 


TEST SO MID-TRANSFER SEEK ON WRITE (PART 1) 
ISSUE A_WRITE DATA OF 1000 WORDS, TO CYLINDER 312 


TRACK 0, SECTOR 25. READ DATA BACK ONE SECTOR AT A 
TIME AND’ MAKE SURE A MID-TRANSFER SEEK DID TAKE PLACE. 


NDER 312, TRACK 
R ATA 


I 
0 TIME AND 


CZREKEO RK& FCTNL CTRL DIAG 
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wit 


NNNNNNNNNNSNNS 
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TEST Sl 


TEST S2 


TEST S3 


TEST S4 


TEST SS 


TEST S6 


TEST S57 


MID-TRANSFER SEEK ON WRITE (PART 2) 
ISSUE A WRITE DATA OF 1000 WORDS TO CYLINDER 312 
TRACK 2, SECTOR READ DATA BACK ONE SECTOR AT A 
TIME MAKE SURE A eee RANSFER SEEK DID TAKE PLACE. 


TWO SECTOR READ DATA (PART 1) 


ISSUE A READ DATA OF _ 1000 WORDS TO CYLINDER 312, TRACK 
0, SECTOR O, VERIFY THAT CORRECT DATA IS READ. 


NOTE: TWO SECTOR WRITE DATA (PART 1) MUST BE EXECUTED 
BEFORE THIS TEST. 


TWO SECTOR READ DATA (PART 2) 
ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 312, TRACK 
SECTOR 23. VERIFY THAT CORRECT DATA IS 
NtD-TRANSEER SEEK DOES NOT OCCUR. 


NOTE: TWO SECTOR WRITE DATA (PART 2) MUST BE EXECUTED 
BEFORE THIS TEST. 


TWO SECTOR READ DATA (PART 3) 
ISSUE A READ DATA OF 401 WORDS TO CYLINDER 312, TRACK 
ae aa 10.° VERIFY THAT ALL 401 WORDS ARE PLACED IN 


NOTE: TWO SECTOR WRITE DATA (PART 3) MUST BE EXECUTED 


BEFORE THIS TEST. 


MID-TRANSFER SEEK ON READ (PART 1) 
ISSUE A READ DATA OF 1000 WORDS TO CYLINDER 312, TRACK 
0, SECTOR VERIFY THAT CORRECT DATA IS READ AND A 


MID-TRANSFER SEEK DOES OCCUR 


NOTE: MID-TRANSFER SEEK ON WRITE (PART 1) MUST BE 
EXECUTED BEFORE THIS TEST. 


MID-TRANSFER SEEK ON READ (PART 2) 
ISSUE A READ DATA OF 1 WORDS TO CYLINDER 312 TRACK 
Fa ECTOR 2S. VERIFY THAT CORRECT DATA READ AND A 
MID-TRANSFER SEEK DOES OCCUR. 


NOTE: MIO-TRANSFER SEEK ON WRITE (PART 2) MUST BE 
EXECUTED BEFORE THIS TEST. 


CYLINDER ADDRESS OVERFLOW (PART 1) 


a el lI llama, ia i 
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ISSUE | a RAO para OF 400 WORDS TO CYLINDER 632, TRACK 
SURE CYLINDER ADDRESS OVERFLOW 


ene 
EY feof pore NOT, gocls FOR THE RKO7. 
TEST 60 CYLINDER ADDRESS OVERFLOW (PART 2) 


1S A READ DATA OF 401 WORDS TO CYLINDER 632, TRACK 
2 aeoske TOR oon SURE CYLINDER ADDRESS OVERFLOW 


EAR CINDER i4S6 1S" S USED FOR THE RKO7. 


96 36 HE 9 0 9 SE A 9 a A Se a aE 
##18 BIT DATA TRANSFER TE 
36 3 36-36 6H 0 9 6 3 0 9 0 2 0 a a a a a a a 
TEST 61 FORMAT IN 24 SECTOR FORMAT 

FORMAT CYLINOGR 312, TRACK O, AND TRACK 1 


FOR 24 
S RIFY F T THAT DATA LATE DID 
ROY Cou it Meg Sh. ear HEADER ON IN READING DATA BUFFER 


TEST 62 24 SECTOR FORMAT DATA TRANSFER (PART 1) 
Iss WRITE DATA 7 4 HORDE IN REGO CTOR FORMAT TO 
8 ROER 3le, PRACK agate ECTOR BACK AND 
MAKE SURE IT’IS CORRE 
TEST 63 24 SECTOR FORMAT DATA TRANSFER (PART 2) 


LOAD A LOCATION WITH BAD PARITY. ISSUE A WRITE DATA 
OF 400 WORDS IN 24 SECTOR FORMAT TO CYLINDER 3le, 


TRACK O CTOR O WaT He EreR. BEGINNING 112 WORDS 


BEFORE ° WITH BAD PAR AKE SURE UNIBUS PARITY 
ERROR DOES NOT SET. READ SECTOR BACK AND MAKE SURE IT 


NOTE: THIS TEST IS EXECUTED ONLY IF MEMORY PARITY 
EXISTS FOR SPECIFIED LOCATION. 


TEST 64 24 SECTOR FORMAT DATA TRANSFER (PART 3) 


ISSUE A WRITE DATA OF 1000 WORDS IN 24 SECTOR FORMAT 
TO CYLINDER 3le, TRACE 0, SECTOR 23. READ SECTOR BACK 
AND MAKE SURE CORRECT. MAKE SURE THAT 
MID-TRANSFER SEEK Tas’ AKEN PLACE. 


ant np rg ts tn i ata aeeeeaasatapataeariaci emma: 


#*SPECIAL DATA TRANSFER T 
96 3 HE HE EH HE AE HAE A A a HH a 


TEST 65 MULTI-SECTOR DATA TRANSFER AND BSE 


SEQ o015 
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FORMAT CYLINDER 312, TRACK O IN Fe eeree oe WITH 
SECTOR _1 MARKE . ISSUE A WRITE 1000 WORDS 


D 

we FOR NPR ROR SE ro AND Conc. Rae SUPE, on 
AND MAKE SURE IT IS CORRE 
pee EeeTOR O.- MAKE SU SECTOR ERROR. noEIS AND May 
PREVIOUS SECTOR IS LOADED CORRECTLY INTO ME 

TEST 66 FORMAT TEST 


OQ 
= 


FORMAT det oS a 12, TRACKS 26 SECTOR 
FORMAT. NO. ERRORS ET ac fEAO ‘cet Tors 0-eS 
AND MAKE SURES DA HE Toce 


MAH EE RRR ARR E EEE RERE REAR ERERRRE RENE 


#*WRITE CHECK TESTS 
3-36 SE SE A HE 6 A 28 0 A a A a a a a a a 


TEST 67 WRITE-CHECK WITH NO ERROR 


WRITE CYLINDER 312, TRACK 0, SECTOR O WITH A KNOWN 
PATTERN. DO A WRITE-CHECK OF 400 WORDS. MAKE SURE NO 
ERROR OCCURS. 


TEST 70 WRITE CHECK ERROR (PART 1) 


WRITE CYLINDER 3l2 SECTOR O WITH ALL eg 


WR re ¢ HECK CYL R § ie. GRack SECTOR O WITH SAME. 
DATA EXC eye EPI Ac hoe 10°’ Has SNe’ 8 THE FOLLOWING 


a BS RE Ba 


000010 000200 004000 T0000 


E SURE WRITE C wf 7 FoR SET FOR EACH OF _ THE 
CONF TGURAT IONS AND HE BUS ADDRESS AND WORD COUNT 


TEST 71 WRITE CHECK ERROR (PART 2) 
WRITE CYLINDER 312, TRACK 0, SECT OR O WITH 17777 __IN 
Li WORDS. WRITE CHECK CYLINDER 312, TRACK 0, SECTOR 
O WITH THE SAME DATA EXCEPT WORD 136 HAS ONE "OF THE 
FOLLWOING CONFIGURATIONS: 


17708 177757 177377 187770 
177737 176777 187777 


177767 177877 173777 b3o9o9 


SEQ 0016 
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SURE WRITE CHECK. ERROR SET FOR EACH OF THE 
CONE 1GURATIONS AND THAT THE BUS ADDRESS AND WORD COUNT 


TEST 72 WRITE CHECK OF PARTIAL SECTOR 


WRITE ofits NOER 312 TRACK SECTOR WITH A KNOWN 
CONF IGURE "ine fee isi RITE CHECK COMMAND OF 110 
WORDS NK IN SURE ify IS DIFFERENT THAN 
DATA ON DISK. —E SURE WATTE CHECK ERROR DOES NOT 


Skok -dch-tehelekeh-$-$-$-4ob-£-4-feh-$-3-4-toh-Seb-tab-t-beh-$-5-Sabeh-t-bab-f-boh--hab-bat-Lalelalelalelatelelelelaietelal 
*#*MAXIMUM DATA TRANSFER AND CONTROLL 


IME OU 
Prerererrrrrrriitiitiititirttiiititiiitiititiiitiiiiiiieiiey! 
TEST 73 MAXIMUM DATA TRANSFER (PART 1) 

IN Te FIRST PAS Re PROGRAM, THE HEADERS OF THE 
FEBS E ek VLE NORE ITTEN. THIS IS DONE TO INSURE 


ZERO QUT THE FIRST SECTORS OF THE DISK WITH ONE 


M it TE, bara OF ne SEEK 70 Bee NcteR RK DO 0. 


ORS CY shee 0, TRACK O, SECTOR O. RAKE SURE SURE 
CON ROLLER TIME OUT 
ADDRESS, OISK ADDR ss) BUS ADDRESS AND WORD COUNT. 


READ cBRCH SECTOR TO "MAKE SURE IT WAS WRITTEN 
CORREC 


NOTE: THIS TEST IS EXECUTED ONLY IF NO BAD SECTORS 


ore PRESENT IN THE FIRST 256 SECTORS ON THE 


TEST 74 MAXIMUM DATA TRANSFER (PART 2) 


ZERO OUT f rail "este msi OF T DISK. WITH 0000 
WORD WRIT K CYLINDER 6 ISSUE o WRITE OF 


MAX IMUM WRIT 
CONTROLL 4 ay T SET. CHECK CYL INOGR 
at aa DRESS AND WORD COUNT 


eek. ‘0 weeatanber 802. ISSUE F A WRITE CHECK OF 200000 


NOTE: THIS TEST IS EXECUTED ONLY IF_NO BAD SECTORS 
ARE PRESENT IN THE FIRST 256 SECTORS ON THE 


PACK. 
CYLINDER 1456 IS USED FOR THE RKO7. 
TEST 7S CONTROLLER TIME OUT 


SEQ 0017 


nn 
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ed TO CYLINDER 632. ISSUE A RECALIBRATE AND D 
BeETAGER BeHRCREe ace RE TEGMTRGLTER One oth 
@YLINDER 1456 IS USED FOR THE RKO7. 

ae Late in cae ee 


##ERRORS DURING 
6 36 HE HE eH A SE eH 0 A 0 A 9 a a a a a a a a a 


TEST 76 LIMIT DETECT ON DATA TRANSFER 
ISSUE _A SUBSYSTEM CLE. ISSUE A Re eer IS 
A SEEK 1s ‘e -e pHETH BAD ett 90 ISSUE A DRIVE 
CLEAR. S TO CYLINDER 1, 
TRACK 0, EEK INCOMPLET BECAUSE OF OUTER 
TEST 77 PROGRAMMING ERROR 


ISSUE A suseysTEn CLEAR. ISSUE A READ DATA OF 400 
WOR ON SYRINDER 0. TRACK 0, SECTOR 0. DURING READ 
ISSUE A_ WRIT SPARE’ REGISTER. MAKE SURE 
PROGRAMMING ERROR SE seiee 


TEST 100 ECC HARD 


ISSUE A SUBSYSTEM CLEAR. I 
CONSISTING OF 177777 _TO cv 
NOW WRITE At ZEROS TO cyt 


A WRITE DATA WORDS 
0,_ TRACK 0, SECTOR 8. 
» TRACK O, SECTOR O. 
CLEAR. MAKE 

READ DATA TO 
AN ECC HARD ERROR 


Uv 
Z 
mo 
of 
rT 
n 


TEST 101 ORIVE TIMING ERROR 


ISSUE a YSTEM GN EK TO CYLINDER 632. ISSUE 
a re T i Tic. FOR SECOND NTERRUPT . 
we} CON E N mm, 


Ss 
OF CYLINDER o TRACK "Oo CLOCK THROUGH S' 


ADER 
R F pIAGNOST I EROD 
Brive fbi snout HY se acBhtse =F na BEA 
TRANSISTIONS ON DATA LIne 
36 3 36 HE SE SE 0 9 AE 2 A 0 A 0 0 a a a a a a a a a HE 


**ERROR FORCING IN DRIVE 
9 2 He AE He A SE 0 AE A A a a a a a A a a Ha a a HE 


TEST 102 INITIALIZE CLEARING SACK 


138UE A “UBS vat M CLEAR. SELECT AN AVAILABLE DRIVE. 
abe rae u D SkeAR ate ONT ROLLER IN DIAGNOSTIC 


MESSAGE ID = 3 AND 
DRIVE sPPECTED 3 »%, tL ack THROUGH PHASE ADDRESS 6. 


SEG 0018 
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OODOQNDKOOOVOOOO00000000 
TT Tay ay ee eer as 


rmrorrrr 
WONOULWM-OWONTUCWM-OwW 


se ee ee ee ee ee ee ee ee ee he ee ee ee ee 
WWWWUTur 
—-O 


DONONQNDOOOOOO OOOO 000000 


£ELCWWWW 
Wh-OWONT 
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TURN OFF pawer MODE. MAKE SURE UNIT FIELD ERROR 
DOES NOT 
TEST 103 DRIVE OFF TRACK 


ISaus * voter ae thence A a et red & ISSUE 
of mor af 


MICRO INCHES. 
TI S 1 WORD TO 
wee hi? 4 SUE 8H BRaTE crock TerougH SEEK AND 
MESSAGES. OF URN OFF DIAGNOSTIC MODE. 
DRIVE AR alee SHOULD SET RON DRIVE. REPEAT FOR ALL 
AVAILIABLE DRIVES. 
TEST 104 FILE UNSAFE 


ISSUE A SUBSYSTEM CLEAR. ISSUE A Me aed a ISSUE 


FORMAT. seLect 69 select cf ‘conmann 1h 28 26 Rec TOR F # Baad Seo pur 
CONTROLLE ISSUE B WRITE, Hs 


cto ee SEEK Bn’ DRIVE” Lea neSsAGE ” _SIMULATE 


stain 
SPO ie aR Son Arend oat? ives OU 


TEST 105 DUMMY TEST FOR PREVIOUS TEST EXIT 


rf 


THIS TEST IS PRESENT “REWORVE THES TABLE HAVE AN 
ee as WHICH att e THIS IS ss 
ABORTS st § His f Test WERE NOT PRESENT, THE 
ROGRAM WOUL ROUTINE AND GO TO THE 


PRO 
TEST FOLLOWING SE NEWDRV™ 
IN ADDITION, THE DRIVE IS CLEARED AND THE HEADS ARE 


it GNEXPEC TO REL OAR THIS. MUST BE DONE TO PREVENT 
ren "GP -_ TS FROM THE DRIVE BECOMING READY AT 


MRA REE E EERE RE RR RRRE RE REERRRERE 


*##MULTI-DRIVE OPERATIONS 
36 3 36 Ae aE 06 SE 0 A 0 a a A a a a a 


TEST 106 RESET ATTENTIONS WITH UNIBUS INIT 


DO _RECALIBRATE ON ALL_AVAILIABLE DRIVES. ISSUE A 
RESET. MAKE SURE ALL ATTENTION RESET. 


TEST 107 RESET ATTENTIONS WITH SUBSYSTEM CLEAR 


DO A RECALIBRATE ON ALL AVAILABLE _ DRIVES. ISSUE A 
SUBSYSTEM CLEAR. MAKE SURE ALL ATTENTIONS RESET. 


SEQ 0019 


ee 
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o0000 
WUT 
te 


o00 oO oO 
RERRANR Ra aaa daratalgts 


Bae 


O000000000 
Sete 000 
Wire 


ee ee ee ee ee ee ae ae be ee be ae ee Be Be pe 
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TEST 110 SVAL AND ATTENTION FROM OTHER DRIVE 
RECALIBRATE ON ONE AVAILABLE DRIVE. DOA SELE 


eae Rie Leeba y RTERRUPY “EROH RECA AC TBRATE -A Big 


STATUS VALID RE AND DRIVE STATUS CHANGE 
REMAINS RESET. 


REPEAT FOR ALL COMBINATIONS OF TWO AVAILIABLE DRIVES. 


NOTE: THIS TEST WILL ONLY BE DONE IF AT LEAST TWO 
DRIVES ARE AVAILABLE. 


TEST 111 OVERLAPPED OPERATIONS 4 
DO A RECALIBRATE ON BOTH DR DRIVE 8. ISSUE A 
rite "Sirah En hoe Sad as ia 1B 
Be SET Fano DRIVE Base apate, Taengete No —— San 
REPEAT FOR ALL COMBINATIONS OF TWO DRIVES. 
NOTE: fr te’ oe ORIVE IS AVAILABLE THE TEST WILL 


ERROR REPORTING 
A DETAILED DESCRIPTION OF_ THE ERROR FORMATS AND REPORTS 


CONTENTS IS GIVEN HERE. THIS IS ESSENTIALLY THE SAME AS CAN 
BE FOUND IN THE LISTING COMMENTS UNDER THE ERROR POINTER 


ERROR POINTER TABLE: 


ris Ups THE INFORRA THE Ann dR He FOR EACH ERROR THAT 


SEAR Taf ERS. ree WB ROLES AOR bin 
ao at eee Rent 
wines Each I Aire 


Be HG ee"FaSth ORMDENE'S RRR SEP? 

Wo ie gata" CaBBR* 

EM AND DH ace HATA. a“ hh A FORMAT 

Bio E, Ai a REED ACCROSS THe 
L HOW WORDS 
S REPL a TH ZERO. NORMAL 

ae eet ath 


E Is TRY FOR EACH 
ERROR MESSAGE. oT CaN” 6ccUR. NY THe INTEREST OF ECONOMICS OF 


SEQ 0020 





AX 


ol0 
Ba 
oo 


FWNM-OWONCTULWV-OWONOU CW 


se ee ee ee ae ee ee ee ee ee ee eee bee he ee ee ee ee be ee pe ee 
ee ee ee ee ee ee ae en ee ee a ee hs ee pe es ne bs ee ae be ee ae pe be ee ee ee ee 


MUNIN EEE EE CWWWW) 
new Oba hoe pst emmtnan sectionals hamte we gedoefsn gers iain 8 + 
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CORE MEMORY, THIS PROGRAM USES THE ERROR TABLE IN A SIGHTLY 
DIFFERENT “MANNER AS DESCRIBED BELOW. 


ERROR 8 E ENTR MAKE A SET a BEPon’ FORMATS ror ee 


TED, RROR IS T 
REPOR aie ENTRY. TH rar ROVIDES Hy: pest D FoRnat. wt. 
CHOSEN M7 INED 3 NTRY CHOSEN {Ss en 
Mer eye a NG THE Sh (ANDY poset Y THE _SECOND) 
Mt ie Os THE ASCIZ 2 STRING THAT MAKES UP WORE 
nesSAGE "PORTION oF LL. 3 THE DATA FIELDS FOR THAT ENTRY 
VER CHANGE EaME COLUMN LABELS OR POSITIONS. 
THE FORMAT THAT EACH TABLE ENTRY PROVIDES IS SHOWN BELOW WITH 
bn S ethctaat OF THE ENTRY. ALL DATA FIELDS ARE TYPED IN 


anes ITEM 1 
at 


) 
13 NUM ERR PC DRIVE 
STESTN SERRPC DRVNUM 
ERROR ITEM 2 
(MESSAGE ) 


( 
TST NUM ERR PC DRIVE 
stesie SERRPC_ DORVNUM 
RKCS1 RKCS2 RKDS RKER RKASOF RKDCYL RKDA 
T.CS1 7.CSe 1.05 T.ER T.ASOF T.DCYL T.DA 
RKBA RKWC 
T.BA T.WC 
ERROR ITEM 3 


(MESSAGE ) 
TST NUM ERR PC DRIVE 


STESTN SERRPC_ ORVNUM 
a 3 ¥ aKeaS “ a ar od RKMR1 
T.CS1 1.CSe@ T.O0S T.ER T.ASF T.MR1 


FREOR RESULT i aa A ANB PRE LBSR IN INDI ATOR BEING SET HEN RCT 
EXE ECTED aah wen IT " FScE OR BOTH. THE ERROR 
REPORT W Mig cont A ALL THE ERRORS. THAT WERE DETECTED, (@) 

D BUT ONBT ef ERRORS AND THE UNEXPECTED BUT SET ERRORS. 


ITSELF EXPLAINS THE CIRCUMSTANCE FOR THE REPORT. 
ng 658 OF TREE EEPORT BILL BE-ONE OR MORE OF THE FOLLOWING 


STATEMENTS: 

“THE ABOVE ARE EXPECTED ERRORS THAT DID NOT SET IN OPERATION:” 
“THE ABOVE ARE UNEXPECTED ERRORS SET IN OPERATION:” ° 

“THE ABOVE ARE ERRORS SET IN OPERATION:” , 


SEQ 0021 


CZR&6KEO RK& FCTNL CTRL DIAG 
CZR6KE.P11 10-JAN-78 09:35 


Pe be me ae pe pee be pn pe pe pe 
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THAT SPECTEY THE EXACT ERROR. FOLLOWING THE Last LINE WILL BE 
CINE THAT IDENTIFY aed HE OPERATION BEING PERFORMED. 


EXAMPLE: 

NONCEXISTANT DRIVE 

THE ABOVE ARE ERRORS SET IN OPERATION: 
DRIVE SELECT 

(ADDITIONAL LINES OF INFORMATION) 


THIS IS THE RESULT OF AN ERROR SET IN A SELECT OPERATION. 


EXAMPLE: 

SAR EXTSTANT DRIVE 

THE ABOVE ARE EXPECTED ERRORS THAT DID NOT SET IN OPERATION: 
ORIVE SELECT 


(ADDITIONAL LINES OF INFORMATION) 


THIS IS THE RESULT OF _AN EXPECTED ERROR THAT DID NOT OCCUR, 
I.E. A NON-EXISTANT DRIVE WAS ADDRESSED BUT NED WAS NOT SET. 


EXAMPLE : 
HONEA OTA MEMORY 
THE ABOVE ARE UNEXPECTED ERRORS SET IN OPERATION: 


UNIBUS PARITY ERROR 
Ma oy Was EXPECTED ERRORS THAT DID NOT SET IN OPERATION: 


(ADDITIONAL LINES OF INFORMATION) 
THIS IS AN EXAMP a OF NON-EXISTANT MEMORY BEING SET WHEN 


UNIBUS PARITY ERROR WAS EXPECTED. 
EPROP I ren M4 
£05 SeRtrT roN OF ERROR) 
N TION 


(DESCRIPTION OF Bake ON) 
sTEsTN SERRPC BRVNUM 


RKCS RKDS exer RKASOF ag RKDA 


T.CS1 ___T.CS T.0S T.ER T.ASOF 1T.DCYL T.DA 
BA a 
T.BA T.WA 


ADO goe got Ade BO0e ADZ BO3 
SREG1O Gll SReci2 G13 SREG14Y SREGIS SREG16 SREG17 


THE “CONTROLLER TED BY THIS FORMAT ARE: 
CONTROLLER ECTED DRIVE BUS ERROR 
Or ive ne ECre® gneve BUS ERROR 


RONAEX INCORPLETE DRIVE FUNCTION 
DRIVE TIMING ERROR 


SEQ 0022 
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££IW 


rururoror 
ONO £WwU-OwW 


rorororurururererururorurunery 
Laat uba tte a 


furor 


Os eae a ee Be ee te ae ae ae be be ee be Be me ae Be ae ae ee ee nn Be as ee ne eae en fn ee Pn ae Be Bs Be pe ee ee be a ee 
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ORIVE UNSAFE 


Brive OFF. TRACK 

pie terri Brive ADDRESS ERROR 
CYLINDER OVERFLOW 

pRiVe TYPE ERROR 


WRITE LOCK ERROR 
ERROR ite 5 
THIS ENTRY IS THE SAME AS ITEM 4 WITH THE ADDITION OF A 
MESSAGE THAT FOLLOWS. THIS MESSAGE IS: 
“ANY FIELD WITH ALL ONES MUST BE CONSIDERED INVALID” 


THIS REPORT WILL BE PRINTED WHEN THE GATHERING OF DATA FOR ADO 
THRU BO3 IS NOT ACCOMPLISHED WITHOUT ERROR. 


ERROR ITEM 6 


(DESCRIPTION OF ERROR) 
‘OR ih OPERATION 

(DESCRIPTION OF OPERATION) 

{at NUM oe PC peat ha 

STESTN RRPC VNUM 
RKCS1 RKCS2 RKDS RKER RKASOF RKDCYL RKDA 
T.CS1  7.CS&@ T.0S T.ER T.ASOF T.DCYL T.DA 
BA RKWC 

T.BA T.WC 

THE ERRORS REPORTED BY THIS FORMAT ARE: 

DATA CHECK 

WRITE CHECK 

ECC HAR 

DATA LA E 

OPERATION INCOMPLETE 


HEADER VRC ERROR 
BAD SECTOR ERROR 


eno EDE SCRIPTION OF ERROR) 
ERR N_OPE 


OR 

( scr ePrAON OF OPERATION) 

TST NUM PC IVE 

STESTN RRPC VNUM 
RKCS1 RKC RKDS RKER RKASOF 
T.CSl = T.C T.DS T.ER T.ASOF 
THE seta Rees eM D BY THIS FORMAT ARE: 
NON-EXISTANT DRIV 
NON-EXISTANT 


MEMORY 
CONTROLLER TIME OUT 


SEQ 0023 


02 


“NOT RESET AS A RESULT OF” 


Tht TS  EAROR 12 IDENTICAL TO ITEM 11 EXCEPT THE SECOND LINE IS: 
“SET AS A RESULT OF” 


ERROR_ITEM 14 
THIS ERROR IS IDENTICAL TO ITEM 11 EXCEPT THE SECOND LINE IS: 


“RESET AS A RESULT OF” 


ERROR ITEM 15 
(HEADER WORD MISCOMPARE) OR (DATA MISCOMPARE ) 


ear a 
WDD NOU CWO 


° 


WWWIW WI WWWWWWU) 


Ronn 
Whe 
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1268 UNIT FIEL 

1553 PLE Baive s err 

127 "PARITY TERROR 

1878 ie FUNCTION CODE 

1875 Descart PTON OF OPERATION CAN BE ANY COMMAND, EITHER LEGAL OR 

1276 

1277 ERROR ITEM 

i538 ieeee ay toe 

ibaa BE SCRIP ari OP Oh OPERATION 

ist Oe me. 

1282 STESTN. 

1283 EXPT 

ise? SREG10 $ReG11 

1366 THE ERRORS REE eR TER Y THIS FORMAT ARE SOFTWARE DETECTED BY 

4 ERRORS ARE rer D RESULTS WITH ACTUAL RESULTS. THE SPECIFIC 

1289 

1290 TRC 

1634 Fie it ORRECT 

iss sc 

1294 

1295 ITEM ti 

1296 PROF ERROR 1 ICATOR OR STATUS BIT) 

1632 NOT et a ict 

1538 ano My 7g RROR paige OR: STATUS BIT, OR OPERATION 

1300 STestN SERRPC ORVNUM 

1303 KCSi RKCS@ RKDS RKER RKASOF RKMR1 

1303 

1304 

1308 T.cS1 7.CS@ T.O0S T.ER T.ASOF T.MR1 

1307 

i oS ih TS ERROR ig IDENTICAL TO ITEM 11 EXCEPT THE SECOND LINE IS: 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 


mn 
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SFEstH” SERRPC  BRvNin 


$REG10 SreG11 SRE SREGLe 


ERROR ITEM 16 
ADDITIONAL LINES OF GOOD, BAD, WORD NUM FOR ERROR 1S. 


SUBROUTINES 


N THE INTEREST OF CONSERVING HEMORY IT Is NECESSARY TO 
Siebetthn Habe SapON TTY Sueno TRE ake TE ESLERERH © 
Seal oats ON. oP PERF 14s FUNCT on 1S KEP 
OnLy oe Sel FUNCTION I 
I. E. aaron miy RE PER TON } 
Gat oie ere Lae ebtoltinel wt 
PROVIDED Th § 


veeseesecestusuaszagesnsssssneenneneeneeseneenssnsasasssssos® 
L 
ME He HE HE ME HE HE HE HH aE HEH HE a ae a EH 


INTE fi A 70 8 CLOCK AER TO CALIBRATE 1s 


THICNY Te fHeRE’ 8 no LONE CLOCK. FINCH 


The THE LINE CLOCK SIMULAT 
JSR PC, CLKCAL 


96-03 06 HE 06H SE A a a a a a a a a a a aa aa 
OPTION PRESENT TEST AND SETUP 


3-06 36 2 AE 96 A a 0 a a a a a a a a a a a a a a a a a a a a a a a a 
THIS ROUTINE CHECKS IF THE MEMORU PARITY 


PRESENT; EL Piteo! alee, UD TFS EB oPE at 


INTERRUPT VECTORS ARE SE 
CALL: JSR PC, OPTTST 


ME EE REE EERE ARERR ERRREREREE 


LINE CLOCK SIMULATI 
36 Ae A eH a a A HE ag A a a a a a a a a a a a a a a aa aaa a a a ak aa 


Ho! Sat eae ee sa BBchbvast 8 


Bro LLISECOND. THE 
VALUE Is  BCERENENTED ip? rt REACHED 0 the TINE 
CLOCK TICK COUNTER are BUMPED. THEN THE TIMCNT IS 


an 
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1380 RESET TO 16 (REPRESENTS 16 MILLISECONDS PER LINE CLOCK 
1381 TICK). 

1383 THUS THE ROUTINE RETURNS TO THE CALLER AFTER J 
1384 MILLISECOND BUMPS THE LINE CLOCK TICK COUNTER FOR 
1385 EACH 16 CALLS. 

1387 CALL: JSR PC, MYTIME 

1389 #3: i-b-ieh-5-b-haie-dei-5-i-5-4e1-1--ind-4-tet-4-tel -tebalalalahalalaieheleishaiaisiaiaiel SPREUMMELEKERKAERAESR 
1390 WAIT FOR {NTERRUP 

t et Ge ERREEEEE: ARERRRKERRKRERRRRRERREARRKRRERRRERRRKE AR SRRRKRERKRKEEEE 
1393 THE ROUT INE NT D BY BY ONE OF FOURT N TRAP | CALLS. 
1394 CALL PIE MANY TICK KS LINE ¢ LOCK 
1395 0 WAITING 

1396 INTERRUPT N THAT PERIOD ti ME, AN 
1397 ERROR ME 5 UT NOT PRINTED IN 'T 
1338 ROUT TNE 3B ®. NS TO. ine = LOCATION FOLLOWING T 
1400 N LY L cari Be” IN WARE? LBeAT ION” AFTER 
1401 THE CALL TO INTERRUPT WAIT 

1403 AL TWAT16 THROUGH TWATISS, TWATIS, TWAT2S, 
1404 ¢ nates, AND WAT IM : : 

Hig PP tae eee 
ian RELKKKKRESRERKRAKRRARERE SARA RRAERERRRERRRERRRRARRKREKRRRKERE 
fut THE PAREMETERG.FouLOMNG, THEOL ORE TRANSFERT ANTS 
ne ae Ma ge oe 
1413 L.cSe Is tOabep FROM DRYNUM. 

1415 

1ai8 CALL: JSR R4, LRLOAD 

iuis BORD COUNT 

157 oT OR Ss 

143s “eT E iy abORESS 

1423 CYLINDER ADORE 

fase Lh TT 
4 RERKKREKEEEAE SRSA RRR ASRRRARERARRERRRKE RRR ARERR ARERRRKEEE 
i429 THE REGISTER Sa TORAGE IS TRANSFERRED TO THE RKEL 
1430 SrEEING on H of SrRAIGHT aL RONSEER NO 
1431 STE cHATENT SS 
1432 cS1_ OF TONSFERRED ON ast as IT CASUCD BE BE IF THE GO 
1433 bi T s Ser. 

i434 

1435 CALL: | TLOADRK 


an 


2 EEE oe 


CZR6KEO RK& FCTNL CTRL DIAG 


CZR6KE.P11 


10-JAN-78 09:3S 


MACY11 30A(10S2) 





BO3 


10-JAN-78 09:S7 PAGE 27 


ar Gat 


STORE RK611 REGISTERS 
36-3 36 0 3 Se 9 SE J HE 9 a 9 A 9 a a a 2 a a a a a a 


L T mks a TY Mae on STORED IN THE TEST TABLE T 
atte EXCEPTION THE DATA BUFFER WHICH IS NOT 
STORED i THIS ROUT tne 


CALL: TGETRK 


REAR AGERE GAGE R ERE RAL E KARA RAERERAARLELRAELERRRREEEE 


BIT COUNTER IN A W 
36 36 HE SE HE 06 HE SE 0 0 A a HE 


THE WORD WHOSE BITS MUST BE COUNTED IS PLACED ON THE 
STACK _BY_ THE FoRS anes ROUT THE bt ae OF BITS 
FOUND IN THE WORD PASSED BACK ON THE STACK 


CALL: JSR R4Y, BITCNT 


MHRA EE EERE RERRA ER AE ERE REERERE ARES 


MAINTENANCE CLOCK ROUTINE 
36-0 He AE HE Se SE SE 9 0 A J a a 9 9 a a a a a a a a aE 


THE PARAMETERS PASSED TO THIS ROUTINE ARE LOCATED IN 
T AFTER THE CALL. THE THE) CALLING © “ROUTINE 


T C UTINE 
WANTS THE CONTROLLER CLOCKED THROUGH AND T Me Rae 
BYTE CONTAINS THE NUMBER OF CLOCK TRANSITIONS (PARTIAL 
PHASES) TO BE DONE. 


CALL: JSR RY, MCLOCK 
- BYTE ;NUMBER OF CLOCK TRANSISTIONS 


. BYTE ;NUMBER OF PHASE ADDRESSES 


MH HE EEE EE AREER ERE RHE REEE ARE REER 


READ AND SORT KEADERS 
9 He 2 SE SE SE AE A J 0 A 0 a a a a a a a a a a a a 


THE HEADERS IN THE CYLINDER AND TRACK SPECIFIED BY THE 
FIELDS IN THE “L” REGISTERS ARE READ AND STORED IN 
ASSCENDING ORDER. CONTROLLER ERRORS ARE_ CHECKED IN 
THE AD HEADER OPERA AND DATA LATE IS CHECKED 

AFTER EACH READ OF THE DATA BUFFER. 
CALL: JSR R4Y, ROSTHD 
TCHKOP ; RETURN POINT IF CERR IN READ 


ERROR 4 'OR S 
RROR 13 :RETURN" tr DATA LATE IN DB 
ERROR 2 *RETURN IF TO SLOW OR 


CO3 
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1u2 ; IF HDR O NOT FOUND 
1494 HEH HH HEHEHE HEHE EH HE EEE HEE HE HE EE EE EH EE EE EERE KE 
1495 GET DRIVE STATUS 
ie PSPS TST TTT TTT eset eet tet ttt teeter ttt ttt iit tsi t itis trite oy 
1498 aes ROUT ANE mat ALL THE DRIVE STATUS AND PLACES IT 
1439 oa Ae 48 HROUGH G17. THESE REGISTORS ARE FIRST 
1500 aN eaRe Q alt ONES THEN IF ERROR OCCURS WHILE 
130) GETTING STATUS, THE 1’S ARE LEFT IN THE REGISTERS. 
1503 CALL: R RY 
1504 ba BaAGA PRCESSING ERROR RETURN 
tebe BR NO ERROR PROCESSING GOOD RETURN 
1208 MH HHH EE HE HE HE HE HE HE HE HEME HE HEE HEHEHE EH HEH HE HE He EE HE EH HE EE 
1508 SUBSYSTEM INITIALIZE AND INITIALIZE STATE TEST 
1308 eee TTT Tt ttt ti tt tt ttt tit tt ttt titi sitet sti sire r Tee SSS 
1511 THE S YS NITI ZED WITH A YST' L 
He EtfnatBSYSCEe Bad ET Red Bont feo cof ES SOORT ME RCS 
tet3 §e TI Ne WHICH THEY D TH RESE 
1213 IF THEY DO RESET, READY IS TESTED TO INSURE IF SETS. 
1517 F_ANY T T TI AN 
121g APeR OPRIATE "ERROR Whessage fs OBREPARED AND REPORTED 
1519 Ore eT RETURN TO THE CALL. IF EVERY THING 
1360 13g , THE RETURN SKIPS OVER THE ERROR CALL AND TEST 
1522 . 
1523 TO THIS ROUTI WILL FOLLOWED BY AN 
Es FoR WPbSSE anG SEARCHES Bg Be" PEr °-4RU8 12 Do 
i3ee BECAUSE FAILURE TO INITIALIZE CORRECTLY IS FataL 
1527 
1259 THE TEST 
1530 " 
123 CALL: TSSINIT 
1533 MG HEME HEE HE HE HE HE HEH HH HE HE EE HERR ERR ERE 
1e30 WORD COUNT AT END OF OPERATION CHECK 
lear MH EHH HEH HE HE HE HE HE HE HE HE HE HEHE HE HEH HE HE EH HE HE EH HE a 
1537 pus ROUTINE aot t CONTENTS OF THE TEST STORAGE 
1538 FOR THE WORO INST THE SUPPLIED VALUE. IF 
15393 UNE Ur THE ERROR TE FLAG (WCERR) IS SET IN GROUP 4Y 
1540 ERROR FLAGS (GRPYER) 
1S4e CALL: JSR RY, CHKWC 
i2au . WORD ;EXPECTED WC VALUE 
1545 Pe eT Te TT tT TTT ttt ee ttt t itt ttt ttt ttt titi tite t titi iti iti rile S| 
iS46 BUS ADDRESS AT END OF OPERATION CHECK 
1547 SSeS TTT TTT TTT Tee tt ttt ttt titi i tit titi siti i itis ieee | 
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THIS ROUTINE COMPUTES. THE pereree GUS ADDRESS AT THE 
aI MN Re Mag IN ee 
SOU AL GROUP 4 eERROR FIELD CORPUERD ” (BAER) IS 
BisPHROAPRE Fe FHETEVENT Ag due aboRess.’ “ME EXPECTED 


CALL: JSR R4, CHKBA 
SUPER DORESSORSSSRER ERAS TENE ER ER RR DRE SERSSSRSSRERSRERRERRAnES 


CYLINDER 
PeTTerTti iit iititiitititiiiiiiiiitiitiitiriteiirr rrr ss Sette) 


OS SOOKE SIRES HAS SPATTNG. GhendtEn BORE 
RecrSteR” ME TORRE” ARE” COUNTED ON TOA Rave’ THE INIT SAL 
ALUES TO MAKE THE NECESSARY CALCULATION 

Shi TIPPE YERME® BOE. PENEMEYEP AGO BIOEED™ oFYPECHED 

CHECKED "OR MORE ARE WRONG. THE 

CORRESPONDING ft one THE ERROR FLAGS FIELD (GRP4ER) IS 

CALL: JSR R4, CHKCTS 
REKKKKKRRAKKREKRER RRR RRRRARRARRREREERERRRARERKAE RRA RERRARHKRHEE 


OPERATION CHECK ROUTINE 
36-6 HE SE EE AE 6 9 Sb a a 0 0 a a a a a a a a a a a 


THIS IS WHERE AL pons A ee chums 
ie ald ce ibaa iis. Efe aCe dite 
pROR 2 atic ev eT HL oft rat Ele THE 


T is" Se HE ERROR TRAP WILL BE 
FER TO THE ERROR 


ITER TPRLE FOR RACESCRIALION Or Tie FORT’ AND. HICH 


FOR NO EXPECTED ERRORS: 
CALL: TCHK 


FOR EXPECTED ERRORS: 
CALL: TCHKWE 
WORD ;GROUP 1 EXPECTED ERRORS 


SEQ 0029 
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POORNOOKOOTOCoo 
OOD 


POROFORD 
fur 
LW OWODNOU £W--OWON 


SEE? 


Wi) 


OOOO NOO 
HOSOI Ew OOD NTN LOD o 


es ee ee ee ee ee ee ee ee ee ee ee ee ee ae ee ee ae ee ee be ee ee 
OTT oe oe oe oat ot 


LOCOCO STOTT rrrrrn 


10-JAN-78 09:35 


. WORD ;GROUP 2 EXPECTED ERRORS 
WORD GROUP 3 EXPECTED ERRORS 
WHERE EACH BIT IN THE THREE WORDS FOLLOWING THE CALL 
REPRESENT. A SPECIFIC ERROR. THE BIT ASSIGNMENTS ARE 
GIVEN BELOW: 
ae TECTED DRIVE BUS 
Part a 
BIT se Renee IVE FUNCTION 
Bit 5 ~ State IVE BUS PARITY ERROR 
IT 5 - ORIVE T RROR 
Bis 
Bit 2 = SPEED i 
Bit § - Baive OFF Wig 
BIT io - I 
BIT 11 - 
BIT 12 - OR 
BIT 13 - NOC ait fo ae ERROR SET ERROR 
BIT 15 - CERR BUT NO Ri ERROR SET ERROR 
gros 2 FC $ e 
BT Oe Eee AM ORECK ERROR 
BIT 2 - WRITE CHECK E 
BIT 3 - DATA LATE ERROR 
BIT 4 - TION INCOMPLETE ERROR 
BIT & - HEADER vac ERROR 
BROUP 2 ERRORS: 
BIT 0 - NON-EXISTAND DRIVE ERROR 
BIT 1 - CONTROLLER TIMEQUT ERROR 
IT 2 - UNIT FIEL 
BIT 3 - MULTIP LECT ERROR 
BI! & = NON-EXI HORY ERROR 
Bit $ = Uiets Pan PORTION ERROR 


MAH REE EERE RRR RE EES 


BAD SECTOR CHECK 
Me Me MG 0 HH HE SE a6 A a A 0 a a a a a aa a a aE 


THE FIELD WHOSE ADDRESS IS IN THE LOCATION AFTER THE 
CALL IS CHECKED TO SEE IF ANY SECTORS ARE LISTED 
pe 9 THAT HAVE ps3 CYL IN R AND TRACK ADDRESS 
SPECIFIED IN L.OCYL AND L.OT. IF A SECTOR IS FOUND IN 
THIS FIELD THAT IS BAD FOR THAT CYLINDER AND TRACK, 


5 tre + FCTNL CTRL DIAG 
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COCK COSCO OOOO Orrrrrrrr 
SoRR PORTS NO 
NO WM OWDONTU CW--OwW 


@ 
0 


NNNANSNNNAN 


ee ae ae ae ae Be Be be Be ae be be ae be me Be be ae Be ae ee pe ee ae pn ae nee ne be be Be ee be be be be be be be be 
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THE SECTOR NUMBER IS PLACED ON THE STACK. 
ECTORS IS PLACED ON THE STACK AFTER THE 


NUMBER OF BAD 
ENTIRE FIELD I 


CALL: JSR R4, BOSRCK 
<ADDRESS OF FIELD TO BE SEARCHED» 


SEARCHED 


SEQ 0031 


THE TOTAL 


tet Lt twa ae” 


DATA GENERATION AND COMP 


INE 
MEH HE HE ME HE HE HE HE HE HE HE HE EE HE RRR ERE RELL ARR AA ERA HRERAREEES 


CALLS: JSR R4, GENCOM 
CONTROL WORD 
JSR R4, GENCOM 
CONTROL WORD 
LENGTH 
ISR R4, GENCOM 
CONTROL WORD 
RELOCATION CONSTANT 
LENGTH 
RETURN: RTS RY 
RY IS ADJUST ED IN THE CODE FOR THE FOLLOW 
THE FIRST CALL RETURNS TO THE LOCATION 
CONTROL WORD. THIS IS UNCONDITIONAL. 
COND CALL RETURNS TO THE L 
(ERGTH TF THE ERATION REQU RES DATA 
D. IF DATA IS GENERATED 
DATA COMPARE ERRORS OCCURRE 


THE THIRD CALL IS IDENTICAL TO THE SECOND. 


DEFINITION OF CONTROL WORD: 
BIT 1S - 00 


ETURNS: 
OLLOWING THE 


OCATION FOLLOWING THE 
COMPARE AND 


DATA 


ONLY OR NO 
D, THE RETURN IS TO LENGTH 


conrene ION OF IBUFF (SOURCE) TO 
? F (Des? TION). EXPECTED VALUES ARE 
(DESTINATION. 


N 
BIT 14 - RE 1°8 OPERATION FROM POINT LEFT 
BIT 13 - TiwoK ' MEMORY MANAGEMENT SOURCE 
BIT 12 - {SeunF yn” MANAGEMENT FOR DESTINATION 
BIT 11 - REP EAT Fr RST deuten OF SELECTED PATTERN 
BIT 10 - CLEAR tBu I Ma oo PATTERN LECTED. 
BIT 9 - BUILD NSIDERING 8S FILES 
BIT 8 - BUILD D HER BERS’ ger SECTORS INDICATE GOOD 


GO3 
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1716 BIT 7 - HEADER oBPERATION SPECIFIED (EITHER 
1718 BIT 6 TC O - PATTERN SELECT FIELD, OCTAL ENCODED. 0 
171 INDICATES NO DATA ‘GENERATION, 1 IS ALL 
1720 ZEROS AND 7 IS ALL ONES. OTHER PATTERNS 
- 1721 OVIDED ARE PATTERNS 2-6, 8-16. REFER 
1722 THE PROGRAM LISTING FOR PATO2 THROUGH 
i723 PATI6. 
1725 EXPLANATION OF CALLS: 
1726 THE CALL WITH CONTROL WORD THE ONLY PARAMETER IS 
1727 USED FOR BUILDING OR COMPARING HEADERS OR RESUMING 
1728 A COMPARE OPERATION. 
1730 HE CALL WITH CONTROL WORD AND LENGTH AS 
1731 PARAMETERS IS USED FOR DATA GENERATION OR COMPARE 
1738 AND FOR IBUFF INITALIZATION. 
1734 CALL WITH C TROL WO RELOCATION CONSTANT 
1735 LENGTH Ts Use FO OR Bata GENERATION OR COMPARE 
is ran 
1738 DESCRIPTION: 
1740 THIS ROUTINE IS MULTI-PURPOSE AND WILL PERFORM THE 
17uy FOLLOWING: 
1743 A. UILD HE ITHER OR_2 7TRACK MODE. 
toad The Rew Buft The HEADERS. AS e856 
1eue ( SECTOR at on® PTuaRe) FOR ETTHER cToR FILES 
1747 ace COUN oe ie BUILD HEADERS WITH THE CTORS 
1748 KEO BAD TF AN SECT ORS FOR THE CYLINDER - TRACK 
1749 ORE LISTED HEREIN (BIT 9). 
1522 
1753 B. COMPARE THE CONTENTS OF F OBUFF (BIT 15). 
1754 THE CONTENTS OF BUFFER Ha y Ne ERS OR pata: 
1755 A HEADER COMPARE TION MAY IFIED (BIT 
i738 Pico ER" soet BS Satae "Ge heAbERE” “rhe Lenore 
1758 DEPEND bn THE F BIT THAT WAS’ LAST. SPEC FIED 
1759 IN L.CS1. T RS Y be BUIL | BEEORE THE 
1760 Cc T OPERATION (BIT AND BIT 
1761 OR 9). A CON al $0 Oe. GENERATED BEFORE THE 
176¢ COMPARE ORON- RO B 
13ee ‘. 8 FECT “— fe OORERRES THE OR ROLITTN ES RETURNS 10 
{pee et ER Burs lle WE TERS SUCH THAT THe 
1767 RESUME S DONE BY BY "CALLING. SERCH 
1768 tte BF 14 SET IN THE CON 
i770 D. DATA GENERATION OR COMPARE USING MEMORY 
1771 MANAGEMENT. MEMORY MANAGEMENT CAN BE INVOKED FOR 
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177 EITHER nBOQURCE OR DESTINATION BUT NOT FOR BOTH. ail! 
4 L E Mae e PETA 

toed aoe aU RE eo ie TENOR 3E vane TO ANY 

1776 A OF AVAILABLE ME 

1778 KHKK GREG REESE EEE ARERR ARR R ERE E AREER REESE ERLE 

1779 PHASE LOCKED LOOP CLOCK ADJUSTMENT ROUTINE 

1780 KRKKRKKRKRAKAAARARAAAAKRARSRERERESKERRERAREKARARRAARAERRRARRRRAAKKRRREE 

1786 THIS ROUTINE IS 1S ENTERED m3 A Stent anbogrT ion 77208). 

1784 INTERNAL Rane a: ESS Then ty JUMPS ie es CLOCK 

1785 DUST eoutl ROUT INE SELECTS THE FIRST 

1569 ROBE BET IN RKAR RUCTIONS ON BHERE TO SCOPE AND 

1788 RODE ny A Sust Ble xd TYP thet yer dons HE CONSOLE” 

1730 : THIS ROUTINE WILL LOOP UNTIL THE PROCESSOR IS HALTED. 
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B83 
OW 


Sth eterna tt ctot tata 
M-OwWW NON LW -ODDNEN rin 


piefesterteetesteatectes] 
fOr ue Oru eed 


iG) 
W 


me ae me te ae ee ae ee ee ee ee ee Be Be ee ae ae ae em ae ne ne ee ee es ae pe be pe ee ae pe be eo he he Be ee 


SELES LLOWWW 
NOUS WOOO N 


167400 
000001 


001100 


000011 


177776 
177774 


Os 
000006 


03 
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##% REV O07 #%* 
-NLIST CND,MD,MC, TOC 
ME 


TL 
“ENABL ABS,AMA 
$SWR= 167400 


- Tit E_ CZR6KEO RK& FoTM, CTRL DIAG 
YRIGHT (C) doce 1977 
jsorGT Tak EQUIPMENT 
BHAYRARD, MASS. 01754 
i SPROGRAM BY MARV TEGROTENHUIS 


:% 
;*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
j #PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


Serte OPERATIONAL SWITCH SETTINGS 


4] 
+ 
Suz 
" 
~ 


;% 
# SWITCH USE 
x 1s HALT ON ERROR 
3% 14 oerett ON T 
i 13 NHIGIT E TYPEOUTS 
$x 12 ABOR PROGRAM AFTER 20 ERRORS 
$x 11 INHIBIT I TERAT IONS 
;* 12 Paik ON ERRO 
3H 8 + oop ON ERROR IN SWR<7:0> 
"SBTTL BASIC DEFINITIONS 
erage SS OF THE STACK POINTER *** 1100 *%* 
- EQUIV bi ,» ERROR ;;BASIC DEFINITION OF ERROR CALL 


[EQUIV I0T; SCOPE ;;BASIC DEFINITION OF SCOPE CALL 


;XMISCELLANEOUS DEFINITION 
HT= Il 3 FOR HORIZONTAL TAB 
LF= 12 >;CODE FOR LINE FEED 
CR= 13 33 FOR CARR AGE RET 
CRLF= 33C FOR CARR RE TURN-LINE FEED 
PS= 177776 >;PROCESSOR STATUS WORD 
- EQUIV PSW 
STKLMT= 177774 ;;STACK LIMIT REG STER 
PIRG= 17777 He oGran INT QUEST REGISTER 
DSWR= 17757 +;HAR ou TCH REGISTER 
DDISP= 177570 :;HARDWARE DISPLAY REGISTER 
#GENERAL PURPOSE REGISTER FINIT 
bos %0 ; ; GENE GISTER 
Rl= “1 ;;GENERAL REGISTER 
Re= xe 5 5 GENERAL GISTER 
R3= %3 35 GE RAL REGISTER 
R4Y= “4 ;;GENERAL REGISTER 
RS= “5 ;;GENERAL REGISTER 
Rb= %b ;;GENERAL REGISTER 
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{B49 teter4 a4 + eR POINTER 
1850 teeta PC= 18 +t PROGRAM AA ATER 
1 - 
g5e PRIORITY LEVEL DEFINITI 
fe; Bang ree: eRIOMTTY LEVEL 
1855 reap PR2= 100 tt BRT ORT TY LEVEL 2 
1856 000140 PR3= 140 i PRIORITY LEVEL 3 
1857 000200 PRY= 200 ::PRIORITY LEVEL 4 
ieee ae Fee: Sa IBUSRITY LEVEL & 
1860 ppo340 PR7= 340 ::PRIORITY LEVEL 7 
186¢ enna i SHITCH REGISTER” SWITCH DEFINITIONS 
1864 040000 Swi4= 40 
1865 020000 SWi3= 20000 
1866 010000 Swi 1 
1867 004000 SWll= 4000 
1868 002000 SWiO= 2000 
186s 901009 Swo9= 1000 
1870 0004 Swos= 400 
1871 900200 Swo7= 200 
1872 0001 SWOb= 100 
1873 000040 SwoS= 40 
1874 000020 SwO4¥= 20 
1875 000010 = 10 
1876 000004 SWwOe= 4 
1877 o00002 SWOl= 2 
1878 000001 Swoo= 
1879 ~ EQUIV £409, sws 
1880 “EQUIV SwWO8; Swe 
1881 "EQUIV SWO7,SW7 
1882 “EQUIV : 
1883 [EQUIV ‘SW 
1884 “EQUIV > Sh 
1886 "EQUIV Swe 
1887 - EQU Vv SHI 
tee ane BES. 
1830 ennaes ,xOATA BIT DEFINITIONS (BITOO TO BIT1S) 
= 
1892 040000 B T14= 40000 
1893 020000 Tigs 200 
1894 010000 Tle=s 1 
1895 994009 IT is 4 
1896 0020 8 vi = 
1897 001000 1T09= 1000 
igag 200 BI1O7= 350 
= 
1900 ria Thee #05 
1901 000040 BITOS= 40 
i902 000020 IT04= 20 
1903 0010 BITO3= 10 


a 7 
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1904 000004 BITO2= 4 

eSB Brees i 

1907 -EQUIV T 3 

3 “EQUIV BITDe, Bite 

1909 -EQUIV 8ITO7,BIT7 

1910 -EQUIV TO; BITS 

1911 [EQUIV TOS; BITS 

1312 -EQU Vv TOY; IT 

191 [EQUIV T03;B1T3 

iais ‘EQuiV BETOLBITI 

1318 -BSuty Bi T00' BIT 

1918 :¥BASIC “CPU” TRAP VECTOR ADDRESSES 

1919 000004 ERRVEC= 4 ;;TIME OUT AND OTHER ERRORS 

1320 00010 RESVEC= 10 ;:RESERVED AND ILLEGAL INSTRUCTIONS 

1921 0014 TBITVEC=14 73"T" BIT 

1922 000014 TRIVEC= 14 ;; TRACE TRAP 

1923 000014 ert C= 14 ?:;BREAKPOINT TRAP (BPT) 

1924 000020 OTVEC= jj INPUT /QUTPUT TRAP (IOT) **SCOPEx# 

1925 000024 PWRVEC= 24 HE Fart 

1926 000030 ENTVEC= ?EMULATOR TRAP (EMT) ##ERROR** 

1927 0034 RAPVEC=34 ?;"TRAP” TRAP 

1928 000060 TKVEC= 60 3 TTY KEYBOARD VECTOR 

1929 000064 TPVEC= 64 ::TTY PRINTER VECTOR 

1930 000240 PIRGVEC=240 ?: PROGRAM INTERRUPT REQUEST VECTOR 

1331 .SBTTL MEMORY MANAGEMENT’ DEFINITIONS 

1335 ;*KT11 VECTOR ADDRESS 

1935 000250 MMVEC= 250 

1337 ;*#KT11 STATUS REGISTER ADDRESSES 

1939 177572 SRO= 177572 

1940 177574 SRi= 177574 

1941 177576 SRe= 177576 

13He 1725 SR3= 172516 

1944 ;*KERNEL “I” PAGE DESCRIPTOR REGISTERS 

1946 172300 KIPDRO= 17 

1947 173302 KippRt= ieeape 

1948 172304 KIPOR2= 172304 

1949 172306 KIPOR3= 7¢ 

1950 172310 K = 17231 

1951 17231 KIP 17231 

198¢ 172314 KIPOR6= 172314 

1383 172316 K = 172316 

1355 ;#KERNEL "I" PAGE ADDRESS REGISTERS 

ges 172340 KIPARO= 172340 

i958 172342 KIPARI= 172342 

1959 172344 KIPAR2= 172344 


an 
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960 172346 

961 172350 

F144 17235e 

36. 1oSsee 

964 172 

96S 

ae? Bb8840 
177440 


rite 
WOW 


NNNN 


WOWDONDDOW 





1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1974 

igze 

199? 

1978 

1 

1 

1981 

1962 

ion 34 
see 

1382 vied 

1989 ponoee 

1988 

1989 

1990 

1931 000101 

1333 600108 

1994 repteeg 

1995 000111 

tea 00011 

199 Bott 

iées DO011 

1 000121 
0001 
001 
001 
000131 


eae 


Sooo 


aera 


Ww 
See 
oo 
S85 


MACY AC 1052) 
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9d ba 


- SBTTL 


" 
WNOFLO Lor Eo 
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17ea8 


175326 


BEEING BREIL WRRgAE pTemrT 


177440 EFINE RK611 BASE BUS ADDRE 
RK611 CONTROLLER REGISTER DEFINITION 






TATUS REGISTER 1 
Paonia ous 
et a 
STA RstER 
By Pity REGISTER 
3 
*AT FFSET REGISTER 
pe eB fEk 
’ 
?MAIN GISTER 1 
fn bl Recis TERS 
rece Learn ties tion 
:ECC PA INFORMATION 
:SPARE REGISTER 
DRIVE COMMANDS 
sSELECT DRIVE 
164 ‘PACK ACKNOWLEDGE 
198 tDRIV CLEAR 
111 ?START SPINOL 
1s Orrcet 
il ; SEEK 
121 *READ DATA 
5g READ. pare, 
1 at HERDER AND DATA 
131 tWRET CHECK 
300 :GENERATE INTERRUPT TO CPU 
CONTROL AND STATUS REGISTER 1 BITS 


atte : A TERRUPT ENABLE 
’ 
Bite BET EBSAEESTEET ie 
BITio E98 TROLLER lie? TYPE (O=RK06) 
BITI1 ONTROLL OUT WAITING FOR 


is ORIVE RESPONSE 


SEQ 0037 


Qn 


| 
science na ita ssi 
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2016 010000 
Sn: 
1 100000 
spe 100000 


mv 
wru 


Boe 
= 


fetststat={=: 
RLoweHo 





Be 


3 
2 


ee : 
= 


gets 


aoe 


A SRE IR re ARES: 


MACY11 os a 10-JAN-78 09:57 33 g SEQ 0038 


TROL AND STATUS REGISTER 1 BIT 


CFMT= BIT12 ;CONTROLLER DRIVE FORMAT (O=26 SECTOR, 1=24 SECTOR) 
seaR= BIT iBRIVE BHS_PARITY ERROR DETECTED BY CONTROLLER 
CERR= BIT1 CONTROLLER RROR 
CCLR= BIT1 CONTROLLER CLEAR 
.SBTTL CONTROL AND STATUS REGISTER 2 BITS 
DRVMSK= 7 8 ORI VE SEL LECTION CODE 
RLS= BITS i DESELECT LEASE DRIVE IN BITS 0-2 
BAI= IT¥ iS S INCREMENT I INHIBIT 
SCLR Be i ROLLER AND ALL DRIVES 
OR= T HIN 
ues BtT9 SUNTT T EIELD, ERROR LECT 
Poe= Bir  PROGRARRT Ne Res YE Ron 

D= td NONE ESTENT Pelton 
me HG 
Orfeo BE Tie Met Te, check 
.SBTTL ERROR REGISTER BIT DEFINITION 

> EM Teeth FUNCTION CODE 
; APeyy —E DRIVE FUNCTION 

DRPAR= 113 TED DRIVE BUS PARITY ERROR 
- a wa : 
cue ie bEce Sect 
psec. Bite tHE VRE 
COE= pitt Stat 5 OVEREL OW. ERROR 
Pee= BATT? TARY Te PokK 
DTfe= iTle DRIVE IMING ERROR 
igs Bits Served (SEARCH) INCOMPLETE 

= Ti4 : UNSAF 

_ TiS A CHECK 


-SBTTL STATUS REGISTER BIT DEFINITION 


ORA= - BITO OPH PLOT AR Re SPI™ROULER IS SET IF 
gro: BITS DRI ME or se 
SPOLSS= BIT4 SPEED LOSS 
OROT= T ‘DRIVE _OFF TRACK 
Ws pire ty vaLt 
ORDY= T 3 
poT= BIT {DRIVE TYPE (O=RKO6) 
pips Biri 4 BRE TE IBATNG IN PROGRESS 
- Tl4 DRIVE STATUS. CHANCE 


2 ee ee oe 


an 
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CZR6KE. 


reteteta} 
VERZIN 


3078 


Sprerevi ch yi 


ee ee Re ee ee ee ee er ee 


VERON Sao Non Low-OBVER EOE 


rurururorurorururururururururururururururururururufory 


100000 
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STATUS REGISTER BIT DEFINITION 





SVAL= BITIS ;STATUS VALID 
.SBTTL MAINTENANCE REGISTER 1 BIT DEFINITION 
MESMSK= 17 ;MESSAGE MASK 
PAT= TY FORCE EVEN PARITY ON SERCON MESSAGE LINES 
DMD= Bite aA ¥§e ROBE 
MSP= 1g :MA CTOR PULSE 
MINO= IT *MA NDEX 
MCLK= ITs > MAINT! LOCK 
MERD= 179 MAINT! NCODED READ DATA 
MEWD= 1Tio > MAINT WRITE DATA 
PCA= Til : TION ADVANCE 
PCD= IT1l2 : TION DELAY 
ECCH= IT13 sECC S BEING READ OR WRITTEN 
Ss a 
ROOST ES Bitte RE 


-SBTTL DEFINITION OF DRIVE STATUS BYTE OO MESSAGE A 


3: We. pire ;ORIVE VE AVOTL AABLE 
ye. Bit i TYPE 
Ea ae 

cage GH in nitNg IN PROGRESS 


-SBTTL OEFINITION OF DRIVE STATUS BYTE OO MESSAGE B 


= isa Re CYLINDER ADDRESS 
1 ne dette SERCON PARITY ERROR 


; 
: 
; 
T10 ; 
Tl ; 
Tl ; 
Tl : OF TRACK 
T14 ; 


-SBTTL DEFINITION OF DRIVE STATUS BYTE 01 MESSAGE A 


iB 
Et 


SskI= 





' i SPE 
, i REVERSE LOADING 


22 ee eee ee 


5 Saat 1: FCTNL CTRL D 


2 


rorurururururururururury : 
bh he 


DOVER LIN GODVON LO ODDIE LU ODDATU LOUHOSBITM LOM ODE Mm 


ee ee ee ee ae eee se ae Bae ae be Be Bee Be ae an be ee be Be ee pe ae be be ee ee 


rorururorurorururorururororvrurororurururerurururorerurororurururorururorururororururory 
atts 





O04 
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DEFINITION OF DRIVE STATUS BYTE O01 MESSAGE A 
S.RTZ= BIT13 ;RETURN TO ZERO 
“UNLD= BITI4 *HEADS UNLOADING 
.SBTTL DEFINITION OF DRIVE STATUS BYTE O01 MESSAGE B 
S.SECT= BITY ;SECTOR E 
S:WCLK= BITS ELIE e: RAND NO WRITE GATE 
5. WGAT= BITe AND NO TRANSISTIONS 
S:HDFL= B1T7 
S.MHD= BITS iM cri ta AD SELECT 
8. XERR= BITS ‘I 
7 DIB= Tio DI 
S:PLO= BIT11 ?PLO ERR 
S:NMOV= BITle * SEEK anor NO MOTION 
S:LIMD= BITI3 ‘LIMIT DETECT ON SEEK 
5: BRKE= BITI4 : SERVO-BRAKE 
.SBTTL COMMON MASKS 
M.ORV= 7 ;DRIVE CODE 
M.PAR= BITIS jPARITY 
M. ID= *BYTE ID 
n. COIF= 17760 ; CYLINDER DIFFERENCE /OFFSET 
HSE Roe 42766 CRT UR SERIAL AONBER 
M.SECT= *SECTOR COUNT 
M.HEAD= 7000 :HEAD DECODE 
.SBTTL TRAP CATCHER 
; #ALL S eke AIM: VECTOR AREA CONTAIN 
Bis "42 reeToH AND PROCESS ILLEGAL 
aT He Jor. yi aaa TRE eh GAL TRAP/INT 
$a ioe WH ( RETURN PC IS 
i tess] Then 1608 1 : 
is arty ERROR AS FOLLOWS: 
eee RET TORN YTO Y EST oe 
j HWHERE XXXsLOCATI cee TRAP 
YYYYY=PC 
f ENOTE: ie Fy HE PROCESSOR T AN 1170S THE PROGRAM 
ED AT TR ODRESS 0 AS WELL AS ADDRESS 200. 
seeitie HALT ;HALT 
BR .-100 ; FBRANCH TO 177700 & TIME OUT (NOT ON 
.WORD START bi dEC OR TO STARTING ADDRESS 
- WORD 340 ?:WITH PRIORITY LEVEL 7 
DISPREG: . WORD O ;;SOFTWARE DISPLAY REGISTER 
REG: WOR 0 ::SOFTWARE SWITCH REGISTER 
seat L SORTING ADDRES (ES) 
JMP QeSTART ;;GO TO START OF PROGRAM 
RESTRT ; JUMP TO RESTART ROUTINE 


JMP 
-=214 
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000214 000137 0017S2e 


ooo0e4 
oooo44 


SAERAEROETEESS fi 
8 
oO 


B 


furururu rururororuroru rurororurururururo a 


20 

0g QUERY 

coy! ouese Oble7e 
000232 

eeuz over Goo749 


ood2e0 000137 O01742 


CO4 
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MACY11 300 055 
STARTING ADDRES(ES) 


PARM ; JUMP TO OPERATOR ASSIGNED PARMETERS 


.=220 
IMP TCLK ; JUMP TO SET CLOCK ROUTINE 
.SBTTL APT PARARETER BLOCK R 


s pete eTiNe ot MO WAS REQUIRCD FOR OT 
iSEr LOC REQUIRED FOR APT 
Te ee eNAVE CURRENT LOCATION 
. $X=. ;SAVE CURRENT LOCATION 
T POWER FAIL TO POINT TO START OF PROGRAM 


206) 
INT TC APT INDIRECT _— PNTR. 
SAPTHOR ;POINT TO APT HEADER BLOC 


LOCATION COUNTER 
_suuvnentai bia enki eee good ots COUNT saannuanananaxsznneness 
TATE we woe ER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 


SAPTHD: 
Fein: 188 fen, RENAE hel cH 
SPASTM: .WORD ian N TIME bn 


N_SECS. ON 1 
SUNITA: HOR B80 io shapes! 1Ohat RUN maAMe SSE FES. OF Be g3 


ze 


SEQ 0041 


AL UNIT 


- ee 
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2209 -SBTTL COMMON TAGS 






ose a3 RKKKKRAAARAKARARAAARARAAAE LKKARKAAAARAAAAAAA SAAR AAAARARARAKRAAAAER 
gsis ; ATHIS TABLE CONTA NS VARIOUS COMMON STORAGE LOCATIONS 
sste -=1100 
Ba 001 SCMTAG: ;;START OF COMMON TAGS 
sig Bb gramme: “Brie 8 :QONTRING THE TEST UMBER 
». @ i 

555; Bol SifhoR: IHORD OO tT TEONTAING SCOPE LOOP ADDRESS 
5555 Bp! SERPaT: HORB 6 tH KONTAING Porat Bnons DeTecreD 
2224 O01 SITENB : - BYTE 0 j } CONTAINS ITEM CONTROL BYTE Pts 
ee8e Bi i RRPC: . 6 CONTAINS eles *E VTRSTRUCTION 

‘ $ a% ' 
oe Bl ee Surat Pease’ BS” OF 
ge3 : - WORD 6 i Ro ave “Rot 10 BE USED 

it STNTRG: :BYT 6 bONTERRUPT MODE INDICAT 


: DISP ce oe ue ws 
TPS: 177564 itty PRIN TATUS REG. ADDRESS 
i. : BYTE HRONTaRNS TOF ao TELE UIRED 


furu 
Se 
BSSESSBBE888: 
“2 
* 
or x 
wees 
O90 
5 


Oe eh hh bb be bh be Be be be bb be bb hh 


BNSFEH BQRRENCEEOSRRERSRENG ow smo ks OwSS 





: 
1 
seis BB mitts, -Be 8 : Ede eau 
ee Be Sieeta: “BE f°  Oheeahne AvPiEsecee'Faee cOt¥ brs =Boves, 
cee 90 ee eontane peep a 
set Siete: HOD 8B SUAS {HERR} S3) 
ae ne Sua (REEDS s18 
ce ser, es 8 ua | Sree 25 
a gi: Heep ieoutatne {PRESB} 25 
ceo Bolsle creed: chee i EOMTADS {BREED 35) 
sees Hele Gel: tee HBUANS HEBER} 
2264 le2e2 STMPO: WORD 0 ;;USER DEFINED 
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2265 STMP1: .WORD 0 ;;USER DEFINED 
gee sinpe: -WORD O ; ;USER DEFINED 
TMP3: .WORD O :USER DEFINED 
2 TMP4: .WORD O i EUS a FINED 
g TMPS: .WORD O ;;USER DEFINED 
STMP6: .WORD O ;;USER DEFINED 
e271 STMP7: .WORD QO ;; USER iNER 
eer EMeit: 18 8 Ben Bere 
i Hels: “He 8 Heat 
ee76 Oot Stne ia; ; 0 ;;USER INED 
ee? B01 STNP 1S: - WORD 6 ; ;USER NE 
DO ee 38 
555 001 S1nP17: WORD 0 OER FINED 
2280 001 STIMES: O ;;MAX. NUMBER OF ITERATIONS 
S582 Opt 000377 a ie <207> «3779 <377> 1 Ee EOR BE 
5585 1 5: Beet HE TION RARK 
284 1 SCRLF: .ASCI <g> 33 IAGE RETURN 
28s O01 SL ASCIZ <12> +: FEE 
2286 ; Rite ttt tgs tt ll 9-36-06 20-36 36 9 SE 9 a eH a HH He HE 
4 ‘SBTTL APT MAILBOX-ETABLE 
§ 30 : ceugsnueseeseeseonsuessneeeneennussneneevesessssssseneneeeeen 
2291 001276 SMA Ls ; ;APT_ MAILBOX 
2 go1e76 SMsG Y: .WORD ANSGTY fig TYPE CODE 
29 1 SFATAL: .WORD FATAL 3;;F AL ae NUMBER 
2294 001302 STESIN: ; ATESTN ies 
sso DO1 SPASS: . APAS Hea 
Soe DO1 SOE VET: " ADEVCT 55D 
2 00131 SUNIT: . AUNI a 7 
2298 1312 SMSGAD: . AMSGAD if 
2299 1314 GLG: . tite 
2300 1316 SETABLE: 33 ae TABLE 
2301 1 18 SENV: -BvTE REN EW 
2302 131 SENVM: .BYT NVM 33 RODE BITS 
5303 0013 SUSUR: “WORD  AUSHR. Ean eee 
2305 001324 SCPUOP: ACPUOP Ai See nTVPe , 
5308 4% 1 Mf og goRsne 11720203, 11/40=04, 11745=05 
5309 iS Tl Bi: me 
3% 
2310 iH BIT g=FE Stir waocesacn 
2311 : i BIT a MORY MENT 
esle 001326 000 $MAMS1: .BYT AMAMS 1 i ;HIGH SM. ae BYTE 
e313 001327 000 SMTYP1: .BYTE AMTYPL hen T kei 
314 3% him. TYPE BYte  -- (HIGH BYTE) 
2315 ; € 6260 
2316 + IPO Ba=002 
2317 * i NS € MOS 
2318 001330 oo0000 $MADR1: .WORD AMADRI ;;HIGH SS, BLK#1 
2319  % MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF “TYPE” ABOVE 
2320 001332 000 $maMS2: .BYTE AMAMS2 ;;HIGH ADDRESS,M.S. BYTE’ 


a — = ae 2 - eee 


CZR6KEO RK& FCTNL CTRL DIAG MACY11 30A(1052) 10-JAN-78 09:57 PAGE 44 SEG 9044 
CZR6KE.P11 10-JAN-78 09:35 APT MAILBOX-ETABLE 






2321 $MTYP2: .BYTE AMTYP2 5 MEN. TYPE, BLK #2 
g32 SHARE: : ANADRE 5 MEM. L gree 8 BLK we 

32 MAMSS: .BYTE AMAMSS :;HIGH 

324 nTYP3: :BYT ANT YES j iMEN. TY eka 

386 i. AMADR3 ;;MEM.LAST. nr 8BY BLK SS 

MANSY: -BYT AMAMSY ;;HIGH 

2327 SUT YEH: [BYTE AMTYPY 53MEM.T 

2328 MADRY: . ;;MEM.LAS Ress aL 

2329 SVECTL: . WORD AVECTL >: INT T VECTORS fue PRIORITY #1 
2330 SVECTe: . AVECT Hide RRUPT VECTOR#2CBUS PRIORITY#e 

331 SBASE: . ABA He OF EQUIPMENT GHDER TEST 
233¢ SDEVM: :WORD ADEVM ;;DE EVICE 
233 $CDW1: :WORD ACDWL $:CON ce eR DESCRIPTION WORD#1 

2334 SETEND: 
2335 .MEXIT 


EEO SS... 
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2350 001360 


360 000000 
057600 


4 061152 
366 061244 
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ERROR POINTER TABLE 
-SBTTL ERROR POINTER TABLE 
pale) So Mem SOnTATS OutiIinD or ues on ro cece ERROR Mey 


X_NUMBE 
geo" in THEAORES HB EGATES Ut ead 


A_IS (SE 


:*N 

;* M ;;POINTS TO T Bara MESSAGE 
;* DH bs BENT TO t TA HEADER 
;* DT 5 SER ENT S TO 

;* OF ;;POINTS 10 THE BATA FORMAT 


SERRTB: 


SW uP BMNOREA GEE BLE 
HE PAGE, OT IS A STRING 


Bae "Yorbe MBER THe“any"orcrne POINTERS 


PARTICULAR FORMAT, IT any REPLACED WITH A ZERO. 


THE NORMAL OF _ THE ERROR TABLE IS TO 
ACH ERROR 


IGHILY B 


T RROR_T! NTR ats * UP A. Ser OF 
Pan E PROGRAR A GHEN ANE RROR TS 0 REPORTED 
THE BEF INE 


e es 
PO T 
CHANGE 


COLUMN L ACED ACCROSS 


MIS a SY oe BUT DH 
NT 


ge 
E 
3 


A FIELDS 
wae GoLUNN LABELS OR POSITIONS. 


22 2 2 5 2 2 2 ke ee ee SO SS SS 


Se ee ee wee wees eres es esses 


THE DEFINITION THE E 
- ERROR ITEM 1 
t SSAGE 


rst ERR PC DRIVE 
STESTN SERRPC DRVNUM 


EMIN: .WORD O 
DHO: 
:ERROR ITEM 2 
UME SSAGE ) 
(MESS 
DRIVE 


T 
ear EBRLEC DRVNUM 
RKCS1 RKCS@ RKDS RKER 


RK ok 


eee ee ee ee 


RKASOF RKDCYL RKDA 


THE FORMAT THAT EACH TA ENTRY PROVIDES IS SHOWN BELOW WITH 
oF NTRY" ALL DATA FIELDS ARE TYPED IN OCTAL. 


HAVE A TABLE ENTRY FOR 


USAGE 
Ss HAT CAN OC NT HONE ate * ECONOMICS 
Tent HhR PEQREM Pees, THE, ERROR TABLE IN A 


HE 
NORS REDE ORMAT CHOSEN FROM 
RED CEN Rte THEN ALTERED 
as T COND) WORD 10 ¢ CONTAIN 
HAT E UP THE 


THAT ENTRY oR ARE NEVER 


SEQ 004S 


TEM ae THE TABLE t IS PERTINENT. 
Kh ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
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2392 ;% T.cCS1  .cSe T.0S T.ER T.ASOF T.DCYL T.DA 
2393 +H RKBA RKWC 
e334 i T.BA T.WC 
S3¢3 851358 B8o090 MeN: WORD OO 
2398 001374 061160 TOoo2 
2399 001376 061250 002 
a * * % RROR ITEM 3 
4 3% ST NUM ERR PC ODORIVE 
Sod + sTeete  eRKCSe  RKDS «=©=«RKER ©—«RKASOF _RKMRI 
Sade :% T.CSl1 T.CS@ T.0S T.ER T.AST T.MRI 
2407 001400 900000 EM3N: .WORD O 
24 001402 057626 DHOO2A 
2409 OO1404 061130 pT003 
eit 001406 061270 DFOO3 
41 ;% ERROR ITEMS 4,5,6,87 ARE USED TO REPORT ERRORS THAT ARE THE RESULT 
2413 7% OF A HARDWARE ERROR INDICATOR BEING SET WHEN NOT EXPECTED 
guid :% NOT sb T WHEN IT 3s EXPECTED ui BOTH. THe ERROR REPORT WItL 
Sule it ERRORS THAT BID. NOT Occ i Toh Re ENE EXPEDITED BUT NOT SCT ERRORS 
3% 
Eat is ERG THE UREXPEE TED Buy UE EH ’ 
2419 '% THE MESSAGE ITSELF EXPLAINS THE CIRCUMSTANCE FOR THE REPORT. 
2420 : i INC UDED IN THE REPORT WILL BE ONE OR MORE OF THE FOLLOWING 
eel is TATEMENTS: 
3 2% "T XPECT RR THAT DID NOT SET IN OPERATION:” 
ae ib RIE ABOVE GEE GREGBTEDEETERRGRI*GL OER SOLAR Ton" 
ccs i “T N OPERATION:” 
427 : HE S WIL OR MORE LINES THAT 
186 ie SPECIFY JE Keer ERROR: Pata iRc thE BE PME ORE Here ke fi LINE 
eves is IDENT ast: THE OPERATION BEING PERFORMED. 
5432 i ROn-EXISTANT DR 
Sd34 if THE ABOVE ARE BEERS SET IN OPERATION: 
ei36 i (ADDITIONAL LINES OF INFORMATION) 
e437 # THIS IS THE RESULT OF AN ERROR SET IN A SELECT OPERATION. 
5450 8 FAAP reat onty 
441 +* THE EAauE ARE ELECTED ERRORS THAT DID NOT SET IN OPERATION: 
e442 ;* DRIVE SELECT 
cuaa is (ADDITIONAL LINES OF INFORMATION) 
244s :% THIS IS THE RESULT OF AN EXPECTED ERROR THAT DID NOT OCCUR, I.E. 
enue i A NON- xe FANT DRIVE WAS EADRESSED BUT NED WAS NOT SET. 
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2480 


YELP PPPYPyPPPP PP PY ry 
585 Soo aD MDM ma Ree SE HH: 


e494 


001420 
00142e 
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oo0000 
000000 
061160 
061300 


000000 
000000 


MACY11 30A(10S2) 1 
ERROR POINT 


T 


TR IC RC CRC RC RC RC RC RC RC IC RC RC RC RC RC RC RC CRC RC IC RC RC RC RC RC RC RC RC RC WC Re ORC Oe 


CORP ee ee ee ee ee ee ee ee es ee Oe Oe we OF OS EOE OE OS OE EOE OS OEE OE SESS Ss ESSE Ss OS SS SE es wees 


Stee ee ee ese ee ee 
22 2 2 2 2 8 | 


oO 
<= 


THIS _IS 


PARITY E 


M4N: 
HYN: 


EMSN: 
SN: 
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0- 
ER TABLE 


EXAMPLE : 
NON-EXISTANT MEMORY 
UNI 


Beatty ORE Pe NEECTED ERRORS SET IN OPERATION: 
ABOV "ARE EX EXPECTED ERRORS THAT DID NOT SET IN OPERATION: 


WRETE DA DATA 
(ADDITIONAL LINES OF INFORMATION) 


AN git 4 Fo Pee Sacer MEMORY BEING SET WHEN UNIBUS 


ERR 
CDESER PrTON nm” 
atts BP On oF 
RIPT OF TOPERATION) 
PC ORI a 


VNUM 
Si RKCS2 RKDS RKER RKASOF eet RKDA 
T.CS1 a T.DS T.ER T.ASOF T.DCYL  T.DA 


“poo AOI B01 Ade BO2 A03 
SREG1O SReci GREG12 SREGI3 SREGIY S$REGIS SREGIG 
see TED By THIS FORMAT ARE: 
CONTR af te IVE BUS ERROR 
VE DRIVE BUS ERROR 
oa Foam FUNCTION 
a i NG E 
ED LOSS 
ILL Pt ADDRESS ERROR 
i oe 
VE RROR” 
FORE sir Por ERROR 


“WORD a 


Brags 


ITEM S 
rH oR ENTRY S_ THE SAME AS ITEM 4 WITH THE ADDITION 
MESS THAT FOLLOWS. THIS MESSAGE IS: 


“ANY FIELD WITH ALL ONES MUST BE CONSIDERED INVALID” 


Hs per oar WILL BE PRINTED WHEN THE GATHERING OF DATA FOR 


U BO3 IS NOT ACCOMPLISHED WITHOUT ERROR. 


-WORD O 
-WORD O 


BO3 
$REG17 


SEQ 0047 


CZR&EKEO RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 48 SEG 0048 
CZR6KE.P11 10-JAN-78 09:35 ERROR POINTER TABLE 


2504 001424 061160 DTOOS 
2e50S 001426 061330 DF OOS 
2506 
e507 :# ERROR TEN & 
8 : COESCR PTION OF ERROR) 
2509 :# IN OPERATIO 
e510 : (DESCRIPTION OPERATION) 
ll ;* DRIVE 
esle 1% STESTN , Re DRVNUM 
gels : real kcSe RKDS RKER RKASOF RKDCYL RKDA 
is : re 1 we’ T.05 T.ER T.ASOF T.OCYL T.DA 
esis 3% 
geile i aK BA Sard 
2518 ; THE ERRORS REPORTED BY THIS FORMAT ARE: 
2519 1% DATA CHECK 
2520 :% WRITE CHECK 
2Se1 + Cc 
eSee2 5% RMA 
2523 +H OPERATION INCOMPLETE 
2524 1% HEADER ROR 
goes a BAD SECTOR ERROR 
ss 001430 000000 EM6N: . 
28 001432 o00000 DHEN: . 
23 001434 061160 DTO06 
2530 001436 061364 DFOO6 
2531 
2532 ;% ERROR ITEM 7 
2533 $x (DESCRIPTION OF ERROR) 
goad :% ERROR IN OPERATI 
e535 i (DescRt PT OPERATION) 
237 is ’ RKCed Ti Seep RK RKER RKASOF 
e338 is va AKERS mes T.ER  T.ASOF 
2541 a REPORT D BY THIS FORMAT ARE: 
es4e ;% 
e543 :% ISTANT 
S44 ;# 
seue i BF LECT 
2547 + cane Pine 
eo4e He UNTBU PARITY ERROR 
ma is ILL GAL FUNCTION CODE 
eee)  % DESCRIPTON OF OPERATION CAN BE ANY COMMAND, EITHER LEGAL OR ILLEGAL 
2553 001440 000000 EM7N: .WORD O 
e554 o01442 o00000 DH7N: ,WORD 0 
2555 OO1444 061160 OTO0 
e558 001446 061410 DF007 
2558 ;% ERROR ITEM 10 
e553 i (DESCRIPTION OF ERROR) 


on 


a 


cenenes Vy FCTNL CTRL DIAG 
cz 10-JAN-78 09:35 


KE.P 


2571 


attattattatt tl 
Suisun 


S30 


DOO 


SEREEE 


sree 


BEEBE 


OOO 


SSeS 
WtWwre 


000000 
060441 
061230 
061430 


O04 


MACY11 30A(10S2) 10-JAN-78 09:S7 PAGE 49 
ERROR POINTER TABLE 


5% ERROR AT COMPLETION OF OPERATION 
te (DESCRIP TON OF OPERATION) 
i TST RR PC DRIVE 
i STESTN SERRPC 
3% EXPT 
i $REG1O G11 
$x THE ERRORS REPORTED BY THIS FORMAT ARE SOFTWARE DETECTED BY 
i COMPARI EXPECTED RESULTS WITH ACTUAL RESULTS. THE SPECIFIC 
i WORD INCORRECT | 
i CYLINDER BOQRESS INC SACORRECT 
te SEC os ents HR CBRRECT 
EMLON: sHORD 
Ba 
5% ERROR ITEM rt 
te (ERROR I 1G TOR OR STATUS BIT) 
te NOT SET RESULT OF ' 
ta (ANOTHER ERROR INDICATOR, STATUS BIT, OR OPERATION 
te TST NUN ERR PC DRIVE 
t* g ESTN RRPC DRVNUM 
1a cot RKCS2 RKDS §$RKER  RKASOF RKMRI 
ta T.CS51 T.¢S2 7.05 T.ER  T.ASOF T.MRI 
EM11N: .WORD 0 
BOLO 
BrOlt 
5% ERROR 12 
te H ° ERROR I JDENTICAL T TQ ITEM 11 EXCEPT THE SECOND LINE IS: 
;# ” 
EM12N: .WORD 0 
DHO12 
Br8i? 
5% ERROR ITEM 13 
a H : ERROR IS IDENTICAL TO ITEM 11 EXCEPT THE SECOND LINE IS 
te "SET AS A RESULT OF 
EMI3N: . 0 
otiors 
o7010 
OFO11 
; ERROR ITEM 14 
i THIS ERROR IS IDENTICAL TO ITEM 11 EXCEPT THE SECOND LINE IS: 
: “RESET AS A RESULT OF” 


SEQ 0049 


CZR&6KEO RK& FCTNL CTRL DIAG MACY11 30A(1052) 


LOY 


10-JAN-78 09:57 PAGE SO SEQ 0050 


ERROR POINTER TABL 
EM14N: .WORD O 
DHO14 


10-JAN-78 09:35 


TERURUANRPNeees 


a 


yaaa 


DTO010 

DFO11 

ERROR ATER FS 

(HEADE BOR piscoxe OR (DATA MISCOMPARE ) 
TS ERR PC IVE 


STESIN. SERRPC onan _ 
REGLO SREGLI SREGLS 


ERROR ITEM 16 
ADDITIONAL LINES OF GOOD, BAD, WORD NUM FOR ERROR 15 


TOISA 


01S 
O16 


NO eee —V—_n 


beer 


CZR6KEO RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 ores PAGE Sl SEQ 00S! 








CZR6KE.P11 10-JAN-78 09:35 REGISTER STORAGE FOR TES 
Ba .SBTTL REGISTER STORAGE FOR TEST 
4 001540 T.CS1: ro 0 
siete re ie 8 
ee . 4 -WO 
' + $ . 
Riess ee, HR 8 
001 T.DS: . WO 0 
001 1 -ER ° 
es . $ . 
501 TBC: . 
001564 T.08: -:WORD O 
B01 1- ORL . 0 
001 T.EC $3 : 
001 T.ECPT: . 
001574 1. ine: oW 
001576 T.MR3: .WORD 0 
it 06 PRESET WITH INTERRUPT ENABLE 

ae > 8 ; 
eaptaid t-falt -Hibep Ob 
Bie 000000 t-Ba: -WORD O 
pot uu CBT: “BYTE 
O01 L.CSe: 

1 L.ASOF: 

E-Bay 


e INED VARIABLES 


RKVEC: ;RK T 
Rec, “ABR Peo” 





i Ts 214 
- -l = 
a BE RSE Th appar we vee em 
er ;ERRORS REPORTED 
ESPbUP: ‘Horo Bse4 lance ee bab ETE, 24 SECTOR MODE 
BSF26P: .WORD BS26 POINT R TQ BAD SECTORS 26 SECTOR MODE 
BSS24P: .WORD O iPO NI Of’ BAO SECTORS 24 SECT MODE 
BSS26P: .WORD 0 eh BAD SECTORS 26 SECTOR MODE 
Beier: 18 SU GES SECTORS && SECTOR NORE 
: Tin NT: “WORD tbis sCOUNT FOR RVTINE RouT ime 


AAIBee BOR UPRERRER IS Ueto OUTED REM M SS saat 
pad 
Or£VMoO 
a te 


REGISTER SETUP STORAGE 


cenekeo RK6 FCTNL CTRL DIAG MACY11 30A(1052) 10-JAN-78 09:57 PAGE Se SEQ 00S2 
Cc E.Pil 10-JAN-78 09:35 PROGRAM DEFINED VARIABLES 








36 apt B80000 INTSET: “WORD E NON-ZERO JE RKOb INTERRUPT SINCE 
a 001664 000000 OPTFLG: .WORD O :OPTION FLAGS 
: od eee ae 
’ 
5/88 saute: tte BleT UbaSen-ecaa"® REPORTED FLec 
270 SERPT= 8117 BSE N REPORTED 
27 PFMT= BITB : IRST SSF SWITCH 
e708 SRuapTs BITI? iCRIVE. NUMBERS REPORTED FLAG 
gril LCLKPR= BIT1S ;LINE cl'bCk PRECENT™ 
e713 REMPAR: “NORD OO thORD OF PARYTY Pracs. 
ae CSRPTR: . 0 jPOINT RTO CSR TO USE FOR SETTING BAD 
ae SA 18 8 Ses E.TIES FONE 
7 ; THE FOLLOWING 4 VARIABLES ARE TO STORE PARAMETERS FOR 
FE besape ESS One COMME COTTE PRED 
zea i WRONUM: . : : IN ERROR HOLD 
WROCNT: - ; L N COMPARE HOLD 
726 171 KWLADD: : 177546 *KWId=L ESS 
7 136 MEMBAS: WO 172100 tenia go 
5788 1716 MRVECA: [WORD 114 :MM11 VECTOR 
732 1788 YP TL : 8 Dev ad ORO KBE. 2000cRKO7 
7 Bes Be 
7 1732 ;DRV 4 
5 1736 0 ‘DRY E 
739 17 : DRY? 





CZR6KEO RK6 FC 
c ll 


ZROEKE 


Be 


744 


ere 


saad 


2 


aabeaeage 


SsasSenennens 


rurury: 
N 
~ 


soa8 


eeeeee g88 
nee 


.P 






DF 
ee ee 


BS 


Oo 

Oo 

fu 

fj for 

Y Re 
ws 





OS 


MACY11 30A(10S2) 


TNL CTRL DIAG 
PROGRAM DEFINED VARIABLE 


10-JAN-78 09:35 


.SBTTL PROGRAM SETUP 

12737 o00002 001624 SETCLK: MOV #2, SRTFLG 
12 BR STARTI 

12737 000001 001624 PARM: MOV #1,SRTFLG 
BR STARTI 


1 737 177777 001624 RESTRT: MOV #-1,SRTFLG 
8054 BR STARTI 


005037 001624 START: CLR SRTFLG ;CLEAR START FLAG 
1 11 orentss Ss esTACK. OP 1 OE Tal oe Co nEK POINTER 
155 BoaS4 MOV PR7,-(SP) ; nas et K TO LOCK OUT ALL INTERRUPTS 
002016 MOV #1$,-(SP) *LOAD START OF PROGRAM 
RTI > LOAD Bau 
904737 o4sse4 1S: ISR STKINT ; INIT IZE 
7 001676 CLR MT ‘CLEAR REFORMAT SWITCH 
.SBTTL INITIALIZE THE COMMON T 
001100 b5CLEAR OY mNgCHTAG oe FIRST LOCATION 79 8 CLEARED 
CLR (R6)+ ” >: CLE MORY LOCATION 
Boece 001140 CMP #SWR,R& ;;DONE? *’ 
ue 74 BNE : i LOOP BACK IF NO 
12708 001100 soto! Fie . ris K ::SETUP THE STACK POINTER 
1 oe nov ‘ 13tyecy C 33 QT VECTOR FOR SCOPE ROUTINE 
i MOV v c’; Me CTOR FOR ERROR ROUTINE 
: 4 nov gingers ro FOR TRAP CALLS 
1 7206 O00024 MOV *5;;POWER_ FAILURE VECTOR 
{ Boe4eB HOV tieEYop & 
MOV 33SET -PROGRAM COUNTER 
001262 CLR sFINTTIAGL R OF ITERATIONS 
001264 1m hte 33 ON ADDRESS 
eR Ee OR Hivye ec a Nee 
;;SIZE FOR A gts R. IF No F IT I 
- : }EQUAL TOA "1" TWARE CHR GISTER. 
bt 3549 002226 o00004 MOV iieer OF oR 
012737 177570 001140 MOV r SWR ::SETUP F SWICH REGISTER 
012737 177570 001142 MOV #DDISP, DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
022777 177777 176716 CMP #1, aSUR :: TRY TO REFE E — SWR 
001012 6 ::BRANCH IF NO TIMEOUT TRAP OCCURRED 
;;AND THE HARDWAR IS NOT = -l 
000403 BR 65S ::BRANCH IF NO TIMEOUT 





0-JAN-78 att PAGE S3 


;SET START FLAG FOR CLOCK ADJUST 
;SET START FLAG FOR PARMETER START 


;LOAD START FLAG FOR PARMETER START 


SEQ 0053 





COS 


CZR6KEO RK& FCTNL CTRL DIAG MACY11 30A( 1052) 7 JAN-78 07 S7 PAGE S4 SEQ 00S4 
CZR6KE.P11 10-JAN-78 09:35 INITIALIZE THE COMMON TAGS 
2797 O0e2ee6 012716 02234 64S: MOV #6S$, (SP) ;;SET UP FOR TRAP RETURN 
OGee3se 00002 RTI 


B18 37 808178 B01 149 65S: ov sBiSPReg Drsptay’ | TO SOFTWARE SWR 


2738 
sift 1 66S: }+,a8ERRVEC ;;RESTORE ERROR VECTOR 
60 Bo3860 e737 884260 001317 erie ae TS1ze, SENN | Bi a Mea aPT 
5607 gg2270 012737 001320 001140 - MOV esl SWR NO, SUSE apr SHITCH REGISTER 
“Spite THE FAME OF THE E PROGRAM IF F RST PASS , 
5810 p0g878 gosee7 177777 ne Ed T ine 
022737 032612 oo0042 one 668 oo, as4e ;}ACT- 11? 


002304 
Bests PBAdBT 002362 Fe ofS, HH TAS iz STRING 


\SBTTL GET VALUE FOR SOFTWARE SiitTCH 


eee Oe ce 000001 BE ais a Hoge: a i oe 


Ree eee 


ONC ULCWT 


D014 7 F 
5833 BaSsae boh7ae 001140 000176 RES SHR, ashRec Hears Surt, CH REG SELECTED? 
eee i: eT SUR - + Bae Sorte Sun SETTINGS 
eed 1127 000001 001134 708: MOVB #1, SAUTOB ;;SET AUTO-MODE INDICATOR 
002360 000437 BR é -:GET OVER T I 
eee? onewe iib28: -ASCIZ obs F>*RK611 Funet$5niae ECNTROLLER BIAGNOSTIC MAINDEC-11-CZR6K-E*<CRLF> 
2829 002460 rome 000200 001317 BITB #8177, SENVM TEST IF E 0 NOT SIZE 
Sea) Bosdee BR4eS> o3z664 FF SSIZE 
aE posi74 033170 000740 CMP SLSTBK, #740 jMAKE pitEMORY IS SUFFICIENT 
2834 002504 104901 051453 onesie TYPE poPgons MESSAGE ngQz ENOUGH MEMORY ) 
See a 
2838 122737 000013 000041 ‘ CMPB #13,a841 11,000 FROM XxDP 
4 051524 Tyee 5832007 
3 99S: _" 
3 OC 1 70 ‘ MOV SLSTBK,RO A 
sada oss 61 i paaaoe MOV #6,R1 igeT bitrrée TPCOUNT 
2845 002550 013703 033166 MOV SLSTAD, R3 *GET LAST ADDRESS 
eee 4 905004 CLR RY ; iceR R4Y FOR RLOVERFLOW 
a topes 992722 eg Rennes 
sexe fueere foelte os: tO Fa a al 
2851 2570 301 DEC R1 >DECR NENT COUNT 
2852 002572 001374 BNE 225 :LOOP IF NOT ZERO 


CZR6KEO RK& FCTNL CTRL DIAG 


CZR6KE .P 


rT 
OD 
oO 


SEC cceT ER ESEEti ct i: RERERBRERKG 


2308 


1l 


: 
B 
a 
a 
a 
a 
& 





1G-JAN-78 09:35 


te: 


MACY11 30A(10S2) 
GE 


001327 


001664 


001664 
001624 


001222 
001352 


001222 


001346 
001346 


001222 
001222 


001347 


OS 


10-JAN-78 09:57 


PAGE SS 
T VALUE FOR SOFTWARE SWITCH REGISTER 


238: 


10S: 


ag ana 


ageTINS, SPTFLG 


016 
&SRTINS, OPTFLG 
#1 SRTFLG 


$BASE, SP) 
, OPROO2 

+, STMPO 
#160000, STMPO 
Hn BASE 

oP 

SYESoha; ($63 
, OPROG2 
(SP}+, STMPO 
#1000, STMPO 
#17777, SVECT1 


sTmpg SVECT1 


T1+1, (SP) 


rn AnnnG i- 

SO 'SoOm 

wee we Y OV 
~ 


, OPROO2 
(SP)+, STMPO 
#7, STMPO 


STMPO 
#160000, SVECT1+1 


PER NEMORY.T PE mee ADDRESS 


MEMORY ADDRESS 
ReDy REPORTED 
ARTUP — 


as IF AL 


Pe, stoatup 
5 CHECK K_IF renee TER START 
Wee Spar sf "AODRESS 
1 BANE, SBRSE_ FOR TYPE ASCTI CALL DIGITS) 
;GET VALUE 
tEHEGK TF INt/0 pace 


i TOBE ORkerl VECTOR RoORESS ( 
GET AR” BRIORTTY BI BITS 


;GET VALUE 
;CHECK IF <CR> 


ét aR ios vec 


rHOBR Mate YEP QFOADPTEES a= 


;SHIFT S BITS RIGHT 


;GET VALUE 


;CHECK IF <CR> 
;CHECK IF LEGAL 


;SHIFT S BITS LEFT 


;CLEAR OLD PRIORITY 


) =" 


SEQ OOSs 


CZR6KEO RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 PAGE S6 SEQ o0S6 
CZR6KE.P11 10-JAN-78 09:35 GET VALUE FOR SOFTWARE SWITCH REGISTER 
233 opi? 737 031568 001347 _ Bis STN, , SVECTI4+1 $1,000, Aol PRIORITY 
ee 304 8 
ll alte O58037 001666 CLR DRV: VDRP ieLEaR DROPPED, pRives LIST 
cals esise fears Bayep omIses Gg BOIUEPTRGPTFLG ISLE Baa toet P ceeck 
te 
14 0031 1 1346 MOV SVECT1,RO :SETUP Be et OR eR ay 
2915 003140 2 60000 BIC #160000, RO :CLEAR PRIORITY BITS 
e316 D03144 O01 1620 MOV ROB BqvEt 
e3i D0 190 1 19 S040 MOV THLR, (RO) ;SETUP INTERRUPT ADDRESS 
18 003154 1137 1347 001622 MOVB svectisl RKPRI i STORE PRIORITY | FOR USE 
2919 003162 013702 001352 MOV SBASE, Re ET BASE 
e320 003166 37 001264 CLR SESCAPE tare 
1 1 12746 o00000 MOV #PRO, -(SP) :SET RICKI TY 
2922 003176 012746 003204 MOV #16$,-(SP) 
2923 003202 o00002 RTI 
2924 003204 16S: 


ee eOOOOOOOeOEEEEEEEEEEOEOEOEOEOEOEOEOEee_ 


CZR6KEO RK& FCTNL CTRL DIAG MACY11 30A(10S2)_ 10-JAN-78 09:57 PAGE 5 SEQ 0057 
CZR6KE.P11 


10-JAN-78 09:35 #*BASIC INTERFACE AND OPTION Peers. 
2926 .SBTTL ##BASIC INTERFACE AND OPTION TESTS 
5252 PEST TM" ate "onae gooRess TEST eres sereess eoee np 
29293 5% AUS pe Mette K611 OpOnE ss (RKCS1) DOES NOT 
Saay :* Stent wren Y TRAP. IF A TRAP OCCURS 
2932 ; 
2933 eee rete tet ete tte eet t tt ttt titi tet ttt titi titi ii ter iris irri rere) 
Sg3¢ B1 2737 teri: Score 
1 7 000100 o0l12b2 MOV #100, STIMES ; -DO 108 preset rons 
3 100 MOV aSTACK, SP ‘ELGAR 
MOV #4,R1 +3 T POINTER eck 
MOV CRI) +, = (SP) D VEC one CONTENTS 
MOV (R1),-(SP) 
MOV #4 Ri j RESET POINTER 


MOV #NEXINT, (R1)+ i set ¢ TOR To NEM TEST HANDLER 
MOV #PR7, (RI) T 


233 





MOV SE POINT ERY TO RK611 BASE ADDRESS 
CLR INTSET Ch AR INT ERRUPT COUNT 
oo0000 nov #0, RKCS1(R2) WRITE CS1 TO SEE IN NEN WILL SET 
Sou NOP 
sau3 TST INTSET ;TEST IF COUNTER IS _0 
BEQ 1$ YES - SKIP ERROR REPORT 
2951 001360 HOV WEN, EMIN MESSAGE (NON-EXISTANT MEMORY TRAP ERR) 
sea MP CTRHLT ;GO TO CONTROLLED HALT 
4 1S: MOV #6,R1 *RESTORE VECTOR 
2955 MOV (sh)+, (R1) 
e3o6 MOV (SP)+)-(R1) 
Soe8 5 | ATEST*Z MM tenmurt vecTOR AODRESS TEST oes ce cee os 
2960 acl VECTOR FQ FOR THE RK611 IS SET TO THE 
2961 iS E eK rep HA TODRESS ATERRUP VECTOR IS IN ERROR, 
ti THE PROGRAM IS HAL 
e964 © > KEMKRGEKESERERSRKKRKRAARKKE RARE RRRARRRERRRRARRRRARRARARRRRRRKAREREE 
sae b2ae4 Brees? 000100 oD1262 Tste: SCOPE #100, 100 
3c? h03332 B1s325 005000 000010 MOV #CL BKe eRe) ;OCEBe OBS YSte TEM ntPRRIE ES TO 
Pg 003340 37 001662 CLR INTSET i Ct EAR Aa ANY OLD INTE NTE 
2970 4 012762 000300 oo0000 MOV #ROY'IE, RKCS1 (R25 ; WRITE est a FORCE INTERRUPT 
2971 003352 O00240 NOP 
2972 003354 o00240 NOP 
2973 000240 NOP 
e974 5737 001662 TST INTSET ;TEST IF E INTERRUPT OCCURRED 
75 003364 1011 BNE 35 ;YES - R REPORT 
2976 003366 105737 001103 TSTB SERFLG ? TEST 1F* RFLG ALREADY SET. IF SO THE 
6977 ‘INTERRUPT WENT TO THE WRONG VECTOR 
78 ; AND MESSAGE HAS BEEN REPORTED. 
2979 00337e 001004 BNE 2s : THEREFORE - EXIT 
2980 3374 012737 053747 001360 MOV #EM1,EMIN :MESSAGE (NO INTERRUPT) 
2981 o003402 104001 ERROR 1 





CZRGKEO AKG FCTNL CTRL DIAG _ 
&SRex abe 09 


E.P1l 10-JAN- 
gs act 000137 044302 


iG WWW 

S88sss =] 
MUN ed eee od eel eed © | 
OWONMUCWM-OwW 


WWWWWWW) 
OO00000 


3031 Bosuie B12737 000062 001262 
Se 003420 : 001720 


2746 000000 
2746 O0344e 


MACY11 30A(10S2) 


O-JAN- :S7_ PAGE S8 SEQ 00s8 


78 
Te INTERRUPT VECTOR ADDRESS TEST 
t $ JMP CTRHLT ;GO TO CONTROLLED HALT 


-SBTTL ##STATUS VALID TESTS 


5 9 36 JE HE SE SE JE AE 0 9 0 a A a a a aa a a 
T3 SELECT ALL DRIVES 


A IRE PL ren 
RAKE “SURES F NON- res a DRIVE REPORTED 
PRESENT FAKE BE Ue Pak 


qeiotsy. DRIVE cc RESET. 


AIS f N erfott laalalaapi 


i LOCATION 41 INOI vt ry 8 


HeaPOBI PS tat RR Bes 
eee el ee HE MSH Gb 
eITHER Peace DRIVE more ct enirotr Tay PH Oe 35 TESTED 
ee TB TS beTERMINE THE Hit ooh STATUS OF battte voLune 


Pe ant estede tStaehee Beir SeeeHiG! PeiclPSs 15 ore 
TO Ihe NON-EX SIAN Rte ME ORR Rge DETECTION. 


PaAes LET reine OY 


AT coreg Tron ve Te TEST A MESSAGE WILL BE GIVEN TO 
IDENTIFY THE DRIVE O BE USED IN TESTING. 


NOTE: THIS tm ust .. Pi LEAST ONCE BEFORE 
ot 


THe THe DETERMINATION OF RHET R EACH ORIVE Is, AN 
RKO 5 MADE IN THIS TEST, AND A 


T Y. 
 seeecepeseseonttaviadlatitisticit OTSUiaosnsnasssonsaeveone 


OSES ESE OF OF OE SEE SFOS SS OEE OE OS EOE SES ESE SSS OE OS OHSS OS OES SEs OE es Os OSes Oe Sees 


© RC RC IC RCC CRC RC RC RC IC IC CRC IC RC CRC IC RC IC RC RC RC RC RC RC RC RC IC RC RC RC RC RC RC IRC IRC ace © 
-4 


OV #SO. ,STIMES :D0 SO. ITERATIONS 
CLR DTYPE tA 

TSSINIT ?CALL SUBSYSTEM CLEAR AND TEST 
ERROR 3 

MOV #PRO, -(SP) ;SET PROCESSOR PRIORITY TO ALLOW 
MOV #1$,-(SP) :RK611 INTERRUPTS 


CZR&6KEO RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 PAGE S93 SES 0059 


CZROKE.P11 10-JAN-78 09:35 T3 SELECT ALL DRIVES 
003440 oc00002 RTI 
42 a 1S: MOV GET 
me 46 012721 MOV TINH (R1)+ cad INTERRUPT VECTOR 


001317 Bae  ekgrrs: eo tars Meafainc. a 
001664 ey BDRVRPT,OPTFLG ‘ B bal eR SEER aed: 


Bepseq mov SBR ZARA ADDRESS OF DEVICE MAP 
900200 
001304 
o04000 


AAA 


8 
3050 003510 137 O04164 SOS:  JMP i1$ 
3088 ¢ 3707 po0041 ooo013 chee ail, #13 SFESTALP' Rxte 1 TOF oaD DEVICE 
3054 aS D2 e737 000001 001624 CHE 81, SRTFLG 5 Wa are PARAM? 
TYPE ? : oORLYE o. 
se 36 oie? 37 650061 wept Bid s56r + °OPTFLG Bet De aive o TEST DRIVE 0 
1 2s: TYPE :MESSAGE = | SWAP PACK ON DRIVE OFF LINE. 
4 1610 CLR “CS DRIVE 
$e eI 32 CLR TMP4 ;CL CLEAR FOR USE AS A SWITCH 
74 012737 000101 O01600 3s: MOV #SELDRV,L.CS1 

3064 012737 003670 001264 MOV #4$, SESCAPE SET Ue Escape “itt, ¢8 CASE OF ERR 
ae 003610 104417 TLOADRK 

003612 104423 TWAT 16 ;MAIT 16MS FOR COMPLETION 
a8 003614 104002 ERROR 2 :NOT DONE ON TIME 
3071 32797 100000 001540 eff #CERR,T.CS1 Hest sal 
3073 nee 737 10000 001550 BIT BNED, T.CS2 H- ifn 
3075 00364 933 oooo4o o01ss4 BI #OTYE, T.ER sft E IF DRIVE TYPE ERROR 
378 00 001406 BEQ 26S BR IF NO 
3078 003650 012737 o02000 001720 MOV #COT, DTYPE ;ELSE SETUP FOR RKO7 
3080 003655 104416 TSSINIT ; iS T.SUBSYS. 
es SERED ABs 3, RS BARE 
3084 003664 104421 26$:  TCHKOP , CHECK THE OPERATION AND REPORT THE ERROR 
Ree 003666 104004 ERROR 4 ;O0RS,6,7 set R THE ERROR IS REPORTED THE TEST 

003670 104401 051524 4S: TYPE, OPROO7 Tie ROT "HPst oF DRIVE Oo 
3088 03702 Ose” 7 BooDat bolece Bis #810, ORVD iB, ET DRY OAS Rope PPED aia ae al 
3031 Boars Boers? oo1ese ss: 98r  Sfmey egy Ge Brive REaby Nas RESET 
3092 003716 001010 BNE 6$ CHECK IF IT IS SET AGAIN 


3093 003720 032737 oO00200 o015se BIT #ORDY,T.OS ietse “check READY 


5 RK6& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 60 SES 0060 
CZR6KE.P11 10-JAN-78 09:35 T3 SELECT ALL DRIVES 


3094 003726 001322 BNE 3$ ;STILL SET - GET STATUS AGAIN 
9s 903730 018737 177777 001232 MOV #-1,STMP4 ‘ELSE Ser FLAG TO. TO INDICATE READY WENT LOW 
36 03736 716 BR 3$ :GO GET STATUS 

3038 740 032737 OO00200 oo1sse 6éS: BIT #DRDY, T.DS ;TEST IF READY SET AGAIN 
9g 00171 BEQ . NO - GO GET STATUS AGAIN 

3100 37 000001 001664 77S: BIS #D0TST, OPTFLG tELSE SET DRV O TEST FLAG. 

3168 12737 OO4064 001264 73S: MOV #35$, SESCAPE ;SET UP Ga Bete" CASE OF ERR 

310, 64 CLR RO :CLEAR FOR NUMBER COUNTER 

3104 266 12701 000001 MOV #1,R1 :SET BIT O AS DRIVE SELECTOR 

3105 7 001720 CLR DTYPE :INIT TO RKOG 

3108 003776 032737 000001 001664 BIT #DOTST,OPTFLG ;TEST ORIVE 0? 

3108 004004 001440 BEQ 9S :NO - SKIP 

3110 1044 8S: TSSINIT sINITIALZE SUBSYSTEM 

gill teste 1Buoas ERROR 3 * ERROR amt SUCCESSFUL 

3113 004012 010037 001610 MOV RO,L.CS2 sLOAD DRI R 

3iis GO4O16 0 0033, 000101 001600 MOV #SELORV,L.CS1 LOAD DRIVE SELECT 

giis 4 104417 TLOADRK * LOAD REGS 

3it3 QO4026 10442 TWAT16 ;WAIT FOR INTERRUPT 

311g 0 104 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 

3120 o04032 104420 TGETRK ;GET RK REGS 

giel 34 2737 100000 001540 BIT #CERR,T.CS1 ; ERROR? 

31 2 1931 BNE 10$ YES - SKIP 

gle: 004 G36737 oo00200 oo1sse BIT #ORDY,T.DS tELSE TEST IF DRIVE READY 

31 4 BEQ S$ :NO_- SKIP 

gis 004054 732 004000 o01Ss2 BIT #WRL,T.DS sELSE TF TEST IF WRITE LOCKED 

3187 BouBes Best 001666 35S: BIS Ri , DRVDRP :SET “The. BIT AS DROPPED DRIVE 

3129 36S: 

3130 ours oS011 BIS Ri, (RB) ;SET BIT - DRIVE PRESET IN MAP 

3132 004076 013760 001720 001722 MOV DTYPE, TYPTBL (RO) ;SET TABLE WITH DRIVE TYPE INFO 

3133 004104 ASR RO 

3135 oOo41 005200 QS: INC RO MPS TO NEXT DRIVE 

3138 Bout 906301 ASL Ri iSHIF DRIVE SELECTOR TO NEXT DRIVE. 

137 OO411 1 oo00400 BIT #81T8,R1 WAS LAST DRIVE DONE? 

3138 004116 o01022 BNE 11$ 8 YES 

3139 oo4120 005037 001720 CLR OTYPE ‘ELSE INIT FOR RKO& TO TEST NEXT DRV 

3140 0041 000730 BR Qs 

3142 004126 032737 010000 oo1SSO 10S: BIT #NED,T.CS2 ;WAS CERR DUE TO NED? 

3145 904134 1364 BNE 9S YES - BUMP TO NEXT DRIVE 

3144 1 2737 oo0040 o015S4 BIT #OTYE,T.ER tELSE SEE IF DRIVE TYPE ERR 

3ius 004144 001404 BEQ 24S :BR IF NO 

3147 004146 012737 OO02000 001720 MOV #CDT, DTYPE sELSE SET UP FOR RKO7 

3148 004154 000714 BR as :AND TRY AGAIN 


rn 


i 


ges ggg geeeg © 
ie 


iv 
3 


rorururo 
R2N8 


mv 
& 


Ssces Seee 98 
cREke = 


Bevery. 
GRERESN S 


WWWWWWWWWWWWWWWWWWWWWWWWWWW WWW) 
RS 


aise opsaas 
1S Gps 
sige antass 
3 36e 
32 004364 
32 004366 
3202 

3203 004370 
3204 004372 


3205 004374 


Stet a Ve FCTNL CTRL DIAG 
CZR6K 10- 


JAN-78 09:35 


104421 
104004 


Barca 
ae 
Assis) 
a1arR 

104401 


Ba1007 


004000 


MACY11 ayet ease) 


001664 


001664 


004162 


001600 


14S: 


15S: 


16S: 


178: 
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SELECT ALL DRIVES 


ERROR 


TLOADRK 
TWAT1E6 
ERROR 
BIT 
BNE 


TCHKWE 
WORD 
WORD 


4 ;ORS,6,7 
7 agp ta 


OPROOS 
eTRHLT 


aBlT7, ,R1 
*OPRo09 

R1, (R3) 

1s$ 

R1 

13$ 

EDRVRPT, OPTFLG 


RO,101$ 


eBtT4!BITS,101$ 


SPACE2 
Las 


#-1,$ STMP? 
o-1 ’ DRVBIT 
#188, SESSAPE 
Re 


3 
RO,L.CS2 
RO, avn 
C’GTYPO 

WSELDRV. L.CS1 


R1, (R3) 
19$ 


0 
0 


SEQ 0061 
;ELSE REPORT THE ERRORS 
;TEST IF SHOULD REPORT 


senY Prive oy — 


Ett REPORT. NO DRIVES AVAILABLE 
0 CONTROLLED HAL 


sSet DRIVE SeLer SELECTOR FOR DRIVE 7 
;SET DRIVE NUMBER TO 7 

; TYPE PREFIX TO DRIVE TEST MESSAGE 
37 

Y 


: Ba" IF THIS DRIVE TO BE TESTED 
;YES IP 


p 


Ss MENT ORIVE NUMBER 

I IT SELECTOR TO NEXT DRIVE DOWN 
Nor SHI 3 OUT oop 

T DRIVE #8’ REPORTE FLAG 

S TO STATUS VALID TEST 

T 


;PUT DRIVE NUMBER IN TYPE LOCATION 
;MAKE IT ASCIZ 
;TYPE IT 


;TYPE SOME SPACES 
; LOOP 


ia Rit meeerioe © Omi 
eB 1 BacHe TN Case 9 


;YES - SKIP TO DRIVE INC. 


iCEEOR FOR BAD CLEAR 


;SET DRIVE SELECT 
; SET OR R 

T DRY Y 
is T FOR ORIVE SELECT 


;LOAD RK neGe 

2) a ate é TERRUPT 

iE e] a ORO NOT COMPLETE 
: fas Of MAT DRIVE AVAILABLE 
;YES - SKIP 


;CHECK THAT ERROR OCCURRED 
;NONE OF GROUP 1 
:NONE OF GROUP 2 


Qn 


CZR6KEO RK& FCTNL CTR 


CZR6K 


SERRE SaSeS 


WONOU LW 


POROFOFOrufUrOrafufurOrarUrOrara furore 
SUR SM MOONS NAN VANENENe eS 


3 


ae 


chy 


EE i 


-PLl 
Bowso6 


1 


if 


ie 


a38 
BES 


3888 
Eee 


8 
<= 
oo 
or 


10-JAN- 


o0o0001 
104004 


ye 
ALA 


1 

1 
ae 
1puca4 
032737 
p01 
ret aie4 


012737 
104417 


RL OF8S., 


100000 
056071 


000400 
001666 


100000 
056152 


000103 


MACY11 30A(1052) 
T3 


0015Se 
001400 


001SS2 
001400 


001600 


0015S2 
001400 


0015Se 


001470 
061454 


001626 


18S: 


19S: 


20$: 


2e$: 


23S: 


21s: 


O-JAN-78 O98” PAGE 62 


1 
SELECT ALL DRIVE 


. WORD 
ERROR 


er oe ti 
Pid St a 
OA 
28 


2" 
mt 
4 


MOV 
ERROR 


MOV 
TLOADRK 


TWAT16 
ERROR 


4 ;ORS,6,7 
#SVAL,T.OS 
#EM47,EM3SN 
5 
#6IT8,R1 
a 
198 
4 ;ORS,6,7 
#SVAL,T.DS 
SEMHB, EMSN 


#PACK,L.CS1 


4 ;ORS,6,7 
#vv,T.DS 
BENG, EMSN 
18$ 
#DSC,T.DS 
#EMDSC 


M12N 
HEMBCLA, DFO11A 


18S 
ORVBIT 
18S 
R1,ORVBIT 


RO; STMP7 
18% 


SESCAPE 


STMP7 , DRVNUM 
DRV 


VNUM, RI 
PC,GTYP1 


SEQ 0062 


;NED IN GROUP 3 
:ERROR IF NO ERROR OR WRONG ERROR 


Ore Fe. SKE VALID RESET? 
3e MESSAGE (SVAL NOT RESET WITH NED) 


ie TO NEXT DRIVE 
; SHIFT VE SELECT BIT 
;ALL OR M ? CHECKED 


GRIER HAS ee DROPPED 


EL “che «HLS Be Ig: DRIVE 
! CHECK NO 
REPORT OER EORORS 


i Ceeck aye. SET 
:MESSAGE (NO SVAL FROM EXISTANT DOR) 


;ELSE aT TO DO PACK ACK 
;LOAD RK 


;WAIT FOR ag 
;TO SLOW/NOT COMPLETE ERROR 


;CHECK FOR ANY ERRORS 
:YES - REPORT & ABORT TEST 


;01ID VV _SET 
;YES - SKIP 
;MESSAGE (VV DID NOT SET/ 


ives IF OSC RESET 
YES - SKIP 


;"DSC NOT RESET RESULT OF SUBSYS CLEAR” 


iN pet IS NEGATIVE 
STORE DRIVE SELECT BIT 
;STORE DRIVE NUMBER TO BE TESTED 


;REV O06 
:LOAD LOWEST # ORIVE PRESENT INTO DRVNUM 


;GET DRV TYP 


ggneKeo me FOTML GURL PAGS 86.6 MACY11 398(1052) _ 18 AN- Non P dE - PAGE 63 SEQ 0063 


3262 004624 023727 001624 oD0002 SRTFLG, #2 ;TEST IF CLOCK ADJUST START 
3 GONG Oo10 SNE 
3264 DOME i 044172 IMP ADJICLK GO TO ADJUST CLOCK ROUTINE 
37 004640 ess 
68 : rr mene er eee 
3283 j ATE RELEASE ALL DRIVES 
71 3 RELEASE ALL DRIVES. MAKE SURE NO ERROR 
387 5 SETS AND STATUS VALID IS RESET. 
74 MPTETTCT CT TT TTT TTT TTT TTT TTT ttt Tt ttt tT tttt it ttt tit titittttit itt ti 
oe BpYENS Gress? on00b2 001262 TSH: Score #50. , STIMES TERAT 
3528 mttaer 104416 Mee NIT oe LIND TTAC Ze Boeey Nem 
38 004652 104003 ERROR 3 
378 004654 013737 001626 001610 MOV DRVNUM, L.CS2 ~ DRIVE NUMBER 
1 004662 012737 000101 001600 MOV #SELDRV,L.CS1 ;SET DRIVE SELECT 
104417 TLOADRK 
Boer 1 123 TWAT 16 ine FOR REA TERRUP 
74 1040 ERROR 2 :T0 SLOMONOT ERA ETE ERROR 
3287 O04 104421 TCHKOP ;CHECK FOR ANY ERRORS 
0047 104004 ERROR 4 ;ORS,6,7 *REPORT ANY ERRORS 


004702 012737 000010 001610 MOV #RLS,L.cSe ;SET DRIVE RELEASE,STILL SET FOR SELECT 
710 1 ? TLOADRK L 
3525 Boasts 1Bu435 TWAT16 hate BK ETERRUPT 
34 004714 104002 ERROR 2 ?TO SLOW/NOT COMPLETE ERROR 
3296 004716 104421 TCHKOP -CHECK FOR ANY E 
7 ERROR S, 6, OR? ; REPORT AL ERoRS> 
3535 oOdaSe 737 100000 oo1sse BIT asvALe T.6s ’ pt s RESETS 
3500 odes OLe7a? ove YER cn KI 
47 12737 056231 001400 MOV #—EM49, EM3N : (SVAL NOT RESET W/RELEASE) 
3301 47’ 104003 ERROR 3 
3302 004742 1S: 
3304 004742 004737 036412 TSTLUP: JSR LOCON LOAD RKO&-RKO7 CONSTANTS 
Z jdaeeacnanuaeusecdsciscusessensbineeaseneenateuteneensnnennaeses 
3308 ; ATE NON-STANDARD MESSAGES AND SVAL 
3308 is PICK ONE OF THE. AVAILABLE DRI cS AND GET 
3310 is BRROR Oct B eTATUS VALID OE 5 NOT 
3 11 Le BND RHAT NO NON- st ARD MES AUSE grATUs 
3312 is VALID TO RESET. 
g3i8 Taam! ames eeaaeeuummabediiiae eee 
1S 004746 oo0004 ieee 
3316 004750 012737 oO00062 o01262 Aoy #50. ,STIMES ;:D0 SO. ITERATIONS 
3317 OO4756 104416 TSSINIT :CLEAR SUBSYSTEM 


CZR6KEO RK& FCTNL CTRL DIAG MACY11 ay eet ons JAN-78 pat sl PAGE 6 SEQ 0064 
CZR6KE.P11 10-JAN-78 09:35 TS STANDARD MESSAGES AND AND SVAL 


1 o4 ERROR ; EAR 
Bs Borer Bierah gong Roy BRL | cg PRESETS OR RESSAGE PAIR 1 
2 774 0127 101 001600 MOV bg L. C8 *L 
2 fae o g ata 1S: CLR a brn iLOaD Fo SELECT CORMAND STATUS 
ia 1 3 TWAT 16 tHAT FO FOR INTERRUPT 
3352 ppsnia foudel Fencor © t teek OPERATION ST nOR 
boeoie 104004 ERROR 4 ;5,6 OR 7 ; REPORT ALL ERRORS 
posoen 737 100000 oc1sse BIT #SVAL,T.DS »TEST STATUS VALID SET 
: BoeDSE | paiaa? BNE Oss i YES SKIP 
| 333¢ 905030 012737 OS7006 001460 MOV #EMSVAL , EM11N 
3333 36 012737 OS0S36 061454 MOV #EMSELD, OFO11A 
3334 o00S044 104011 ERROR 11 ;"SVAL NOT SET RESULT OF DRIVE SELECT” 
3336 O00SO4%% 010137 001616 2s: MOV R1,L.MR1 ;LOAD MESSAGE PAIR SELECT 
417 TLOADRK 
os0es 1Buie3 THAT LE there BG FOR INTERRUPT 
33u0 ERRO! 2 ?TO SLOW/NOT COMPLETE ERROR 
DOSO60 104421 TCHK 5 RAT 
334 etal 1Bdd54 E on 4 ;5,6, OR 7 EOE SRT aL ALL RAT ARO RS 
4 7 100000 o01SSe T #SVAL,T.0S :TEST STATUS VALID RESET 
a BBepe2 Battas BEG $3 i YES SkIP 
005074 012737 0OS7006 001470 MOV #EMSVAL , EM12N 
3349 005102 012737 057023 061454 MOV #EMNZPR, DFO11A 
si 005110 104012 ERROR le ;"SVAL NOT RESET RESULT OF SEL W/ NON-O PAIR” 
3 905112 922701 000003 3S: CNP #3,R1 HOS PAIR 3 SELECTED? 
333 Bpe 128 go5201 INC Ri Mr sioP xT ,PAIR 
pice 00072 iat BR 1 ‘SKIP TO D 
7 Cre eer ret ere 
8 jATEST b WRITING CS2 AND STATUS VALID 
3360 1% SELECT AN AN AVAIL DRIVE. TATUS 
6 $i VALID Get fece SHANG AND NB Stetu REGISTER 2. 
: SURE st TATUS VALID RESETS 
3364 1 H et ee eee 
See Bos! p90997 o00062 001262 ’ Rov #50. , STIMES ;;00 SO. ITERATIONS 
36 134 104416 TSSINIT :CLEAR SUBSYSTEM 
308 005136 104003 ERROR 3 :BAD INIT ERROR 
35 005140 013737 


001626 001610 MOV DRVNUM,L.CS2 ;LOAD DRIVE NUMBER 
3371 005146 012737 000101 001600 MOV #SELORV,L.CS1 LOAD DRIVE SELECT 


3373 OOS1S4Y 104417 TLOADRK ;LOAD RK 


C O RK& FCTNL ha 
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104423 
10400e 
ooSibe 104421 

104004 


166 032737 
174 601009 
0051 127, 4 
AGets 
1040 
013762 
104420 


oosee4 th 
1407 


012737 
012737 
104012 


DIAG 
09:35 


100000 


057006 
050536 
001626 
100000 


057006 
057064 


MACY11 7 eee 


001552 


001460 
0614S4 
000010 
o01sSe 


001470 
0614S4 


1S: 


2s: 


NOS 


-78 09:57 PAGE 65 

CSe AND STATUS VALIO 
gre FOR INTERRUPT 

2 TO SLOW/NOT COMPLETE ERROR 
CHECK OPERATION 

4 ;5,6, OR 7 ;REPORT ALL ERRORS 

#SVAL,T.0S ; TEST STATUS VALID SET 

1$ ; YES-SKIP 


#EMSVAL, a Fey 


+) empeate DFO11A 


DRVNUM, RKCS2 (Re) 


#SVAL,T.OS 
es 


#EMSVAL ,EM12EN 
HENUICSE, »DFO1L1A 


;"SVAL NOT SET RESULT OF DRV SELECT” 
;WRITE CS2 TO RESET SVAL 
;GET RK REGS. 


; TEST SVAL RESET 
: YES-SKIP 


;"SVAL NOT RESET BY WRITING CSe” 


CZR6KEO RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 66 
CZR6KE.P11 10-JAN-78 09:35 ##CONTROLLER ERROR TESTS 


-SBTTL ##CONTROLLER ERROR TESTS 


a | 


a ; ae. ate Vee Ge 
303 j ATES DRIVE TYPE ERROR 
te CREATE A DOR T ERROR. MAKE SURE DRIVE 
oe + i TYPE ERROR ays. BND STATUS VALID SETS. 
3 a RERKLKESSRSRERKRKEARAERERERESARRRARRRRRERKRRRRRERRRRRRKKKKKKRKRKE 
ooses2 p00004 tST7: SCOPE 
4 016727 000062 001262 MOV eS0. , STIMES ; oe TERATIONS 
1 TSSINIT Le syst 4 
i3 184003 ERROR 3 
341 137 001626 001610 MOV DRVNUM,L.CS2 nen OR NUMBE 
3414 ieee oi3r9 000101 001600 MOV aSELORV,L.CS: LOAD BRT SELECT 
3418 005302 053737 036506 001600 BIS HOLD2, i: CSI sLOAD ORI YPE 
3417 005310 104417 L 3L Rik 
18 Oossie TWAT16 hart FOR INTERRUPT 
13 005314 1 OR 2 :TO SLOW/NOT COMPLETE ERROR 
342 1 22 TCHKWE ;CHECK OPERATION WITH EXPECTED ERROR 
Hes - WORD 0 *DRIVE TYPE ERROR 
bo8354 “WOR 
3425 005326 104004 ERROR 4; OR 5S,6,7 ;REPORT ANY DIFFERENCES (NO ERRORS 
age 3A IT ERRORS, DIFFERENT ERRORS) 
005330 032737 100000 ooisse BIT aSVAL, T.DS iT SVAL SET 
38 005336 001007 ; BNE iS ; YES-SKIP 
3430 340 012737 OS7006 001460 MOV sEMSV 
3431 346 015737 055502 061454 MOV SEMOTPE, Bott 1A 
34 354 104011 ms ERROR ;"SVAL NOT SET RESULT OF DRV TYPE ERR” 
3434 ifesr ID) STATUS VALID AND PARLTY ERROR NNN MBEEEES 
3438 j AT ST 1 VALID AND PARIT 
3437 La ISSUE A - I DRIVE WITH BAD PARITY. 
ae i: iBe a i vn ae 
3439 te DRI 13 Op vasio St 
Sdut iS CL 1 mts 
ie a 
3442 3H cae} fe 
3443 $ 1TY veestaTuS 
3444 * i CHANGE “baive INTERRUPT, 
Su4e + eee no st NESSAGES 
3447 3% betes ae Ton ma oi 
3448 $m ARE SE N 19 WITH LEAR. NREPEAT 
3449 is FOR act “AVAILIABLE DRIVE 
4S)  PONRERNCeCednenenennnENnenEEnENnnnininennennennnnenniennnnne 
3452 005356 o00004 qgetee cop 
3453 005360 012737 OO00062 001262 MOV #50. ,STIMES ;;D0 50. ITERATIONS 
3454 005366 104416 TSSINIT :CLEAR SUBSYSTEM 


L——-—_ —_____ ————— ee ee 
- -_ =- sss 








fe 


“PLL 
005370 
005372 
Bosuoe 
005414 


ae 


2 
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104003 
013737 

ci 
104417 


7 
01007 
012737 
012737 
104011 
005037 
052737 
104417 


104421 
104004 


001 


26 
26 


000400 
001626 


001556 
ae 
S41 
040000 
057126 
0SS417 
040000 
057146 
0SS417 
100000 


057006 
0SS417 


001616 
100000 


MACY11 — 


eg tt 34 0 


001540 
001460 
0614S4 
001SSe 
001460 
0614S4 
0015Se2 


001460 
061454 


001600 


es: 


4S; 


6S: 


78: 


STATUS VI VALTD AND Part Ty ERROR SEQ 0067 


ERROR 3 ;BAD INIT ERROR 
MOV ORVNUM,L.CS2 ;LOAD ORIVE 

Mov woe hORV LCS itOAb EVEN" oaee! Y BIT 

TLOADRK LOAD RK REGS-SELECT W/EVEN PARITY 

ERROR” 2 iMBtT, £08 TT EGHPLETE ERROR 

DRPARERR! SPARERR :ORIVE SELECTED DRIVE BUS PARITY ERROR 

WORD QO :CONTROLLER DETECTED DRIVE BUS PARITY ERROR 


.WORD QO 
ERROR 4 ; OR 5,6,7 ;REPORT ANY DIFFERENCES 


MOV #BIT8,RO ;ROUTINE TO DETERMINE WHICH BIT 


MOV ORVNUM, R1 ATTEN T IN BROF TO proce’ 
BEQ a8 Pa a OULD Be BOB eLL AA VE _T 

ASL OR Ye DRIVE 
DEC Ri 

BNE es 


BIT RO, T. ASOF 


Hy SERAPH, 


ERROR ;“ORV ATT NOT SET RESULT OF DRV PARITY ERR” 
i Teat. DRyve INTERRUPT SET 


; TEST ATTENTION SET 
; YES-SKIP 


IT 40 I,T.CS1 
Bie OS 


NE 
MOV #EMDI EMLIN 
MOV #EMDPAR , DF 
ERROR if ;"DRV INT NOT SET RESULT OF DRV PARITY ERR” 
BIT #DSC,T.DS i TEST DRIVE STATUS CHANGE SET 
BNE  YES-SKI 

MOV #EMDSC, EM11N 

MOV #EMDPAR, DFO11A 


ERROR 11 ;"DSC NOT SET RESULT OF DRV PARITY ERR” 
BIT #SVAL,T.DS ; TEST STs VALID SET 

BNE 7 ; YES-SKIP 

MOV SeMSVAL, » EDA LN 

MOV #EMOPAR, OFO11A 

ERROR 11 ;"SVAL NOT SET RESULT OF DRV PAR ERR” 
CLR L.MR1 ;CLEAR PAT IN MR1 

BIS eCCLR,L.CS1 ; CLEAR CONTROLLER 

TLOADRK ; LOAD RK REGS TO DO CLEAR 

TCHKOP ;CHECK_NO ERRORS SET 


} 
TCHKWE ;CHECK OPERATION FOR EXPECTED OR 
ERROR 4 ; OR 5,6,7 ;REPORT ALL ERRORS STILL SET 





| 
| 
| 
| 
| 
| 
| 
| 
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=8 


12737 

Ooeese 18737 

Bers 901007 

4 012737 

104014 

GOS674 012737 
4 
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001SS6 


87278 





MACY11 30A(10S2) 
T10 


1510 
be1a34 
001540 
001510 
0614S4 


001600 


901 4e8 0 
001540 

1460 

iWe4 
001SS2 
001460 
0614S4 
0015Se 
01460 
61454 


001600 


001600 


9S: 


10S: 


11S: 


12S: 


13S: 


10-JAN-78 09:57 PAGE 68 
STATUS VALID AND PARITY ERROR 


he 


BIS 
TLOADRK 


MOV 
MOV 


RO T. ASOF 
BEMCCLR, OFO11A 


I,T.CS1 


#EMDI, EML4N 
wEnccLR, DFO11A 


#SELDRV,L.CS1 


2 


000010 


RO, T. ORsore” 
SABER, 
401, T.CS1 


SERDAR BAS, 1A 


#0SC,T.0S 
103 p 

#EMDSC, EM11N 
#EMDPAR, DFO11A 
WSVAL, ,T.0S 


SEMSVAL, 


- PAR, Fol ta 


oa 


#1,R1 
#SELORV,L.CS1 


5 VEST ATTENTION STILL SET 
; YES-SKIP 


;"DRV ATT RESET RESULT OF CONT CLR” 
; T VE INTERRUPT STILL SET 
YES “okye* en 


;"DRV INT RESET RESULT OF CONTROLLER CLR” 
;LOAD SELECT DRIVE 
inate PENTERRU 

0 SLOW/NOT GONPLETE ERROR 


BERIT SREBER TT REBORT 


:ANY DISCREPENCIES 


; TEST ATTENTION STILL SET. 
; YES-SKIP 


;"DRV ATT NOT SET RESULT OF DRV PARITY ERR” 
; TEST DRIVE INTERRUPT STILL SET 
; YES-SKIP 
;"DRV INT NOT SET RESULT OF DRV PARITY ERR” 
i YES STATUS CHANGE STILL SET 
YES-SKIP 
;"DSC NOT SET RESULT OF DRV PARITY ERR” 
; TEST STATUS VALID STILL SET 
; YES-SKIP 
;"SVAL NOT SET RESULT OF DRV PARITY ERR™ 
;CLEAR CONTROLLER 
;LOAD RK REGS (DO CLEAR) 


;SET COUNTER TO SELECT STATUS PAIR 
:LOAD DRIVE SELECT 


SEQ 0068 





Stet ge ie FCTNL CTRL DIAG 


CZR6KE .P 10-JAN-78 09:35 
3567 72 019137 001616 
Sere 190 tat 
3256 1 1 
3571 
3872 006104 104421 
3273 006106 104004 
3875 110 37 OO1SSE 
278 114 1007 
sre BELG Blsrae BEr8z8 
3$7' Boe! 104014 
3581 134 737 040000 
3882 142 1007 
3203 144 Bt 7 perk 

1S2@ 012737 702 
160 104014 
162 1 
38 Boe ied 01 oo0004 
006170 001340 
323} 006172 005037 001616 
was 006176 012737 000105 
329¢ 006204 104417 
3596 006206 104423 
3538 006210 104002 
3$ le 104421 
is RIS IEA 
3601 
Sis BES pugzgt oo00en 
3604 O06ee4% 001376 
3605 
3607 50 630037 001556 
3609 3 13799 057172 
is eee Blea Sania 
Eats O0beSe 104012 
3613 006254 737 040000 
Bis Bee BEE csriae 
sie @ 012737 OSOS64 
3617 006300 104012 
3616 
3613 606302 
3620 
3621 
3622 


MACY11 30A( 1052) 
T1i0 


001410 
0614S4 


001540 


001510 
0614S4 


001600 


001470 
0614S4 
001540 


1470 
0614S4 


E06 


PAGE 69 


SEQ 0069 


PAIR SELECTION 
ERRUPT 
OW? COMPLETE ERROR 
I 


0 
HECK_IF ANY ERRORS SET 


EPORT ALL ERRORS SET. 
EST ATTENTION STILL SET 
ES-SKIP 


;"ATTENTION RESET RESULT OF NON-O PAIR SEL” 


;"DRV INT RESET RESULT OF NON-O PAIR SELECT” 


;BUMP PAIR SELECT 
;ALL PAIRS DONE? 
;NO-LOOP 


;CLEAR MR1 
;LOAD DRIVE CLEAR 


;00 DRIVE CLEAR 
;WAIT FOR INTERRUPT 
;TO SLOW/NOT COMPLETE ERROR 


; CHECK _FOR ANY ERRORS 
;REPORT ALL ERRORS 


s9ET COUNT FOR SHORT WAIT 

;10 ALLOW CONTROLLER TIME TO POLL 
s 

;GET_RK_REGS 

; TEST ATTENTION RESET 

YES-SKIP 


3 
;"ATTENTION NOT RESET RESULT OF DRV CLEAR 


i YESS a? ae INTERRUPT RESET 


10-JAN-78 09:57 
STATUS VALID AND PARITY ERROR 
14S: MOV R1i,L.MR1 
TLOADRK 
TWATI6 
ERROR 2 
TCHKOP 
ERROR 4; OR 5S,6,7 
BIT RO, T. ASOF 
BNE 
MOV #EMDA,EMYN 
MOV #EMNZPR, DFO11A 
ERROR 14 
1S$: BIT #D1,T.CS1 
BNE 165 
MOV #EMDI,EM1YN 
MOV HEMNZPR, OF 0110 
ERROR 
16$: INC R1 
CMP #4,R1 
BNE 14$ 
CLR L.MR1I 
MOV #CLEAR,L.CS1 
TLOADRK 
TWATI6 
ERROR 
TCHKOP 
ERROR 4; OR S,6,7 
MOV #20,R1 
17S: DEC RI 
BNE 17S 
TGETRK 
BIT RO, T. ASOF 
BEQ 
MOV #EMDA png 
MOV wenoct OFOLIA 
ERROR 
18S: BIT #D1I,T.CS1 
BEQ 198’ 
MOV #EMDI,EM12N 
MOV #EMOCLR, OFO11A 
ERROR iz 


;"DRV INT NOT RESET RESULT OF DRIVE CLR” 


eT tit tttt iti itttititiiitiiiiiiiitiiei irre eter tt to 
UNIT FIELD ERROR ON RELEASE 


tkTEST ll 


FO6 


KEneKEO. vi FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 70 SES 0070 
CZR6KE .P 10-JAN-78 09:35 Tll UNIT FIELD ERROR ON RELEASE 
3623 a ISSUE A SUBSYSTEM CLEAR. SELECT AN AVAILABLE 
asd 3% DRIVE. PUT A easy onn IAGNOSTIC MODE. ISSUE 
36 % A RELEASE COMMAND. HROUGH PHASE RODRESS 2. 
Fg] ;# TURN OFF DIAGNOSTIC SbDE* HOKE SURE UNIT FIELD 
Fog 4 4 OR SETS. 
MVTTT TTT TTT TTT TTT TTT TTT itt ttt iti t tt itt titi tititittttttiitty 

3650 9063 000004 +8T11: SCOPE 

1 012737 oOo000be O0lebe MOV eS0.,STIMES A S50. ITERATIONS 
3632 006312 104416 TSSINIT AP EAR SUBSY STEM 
333 006314 104002 ERROR 2 BAD INIT ERROR 
3635 006316 013737 001626 001610 MOV DRVNUM,L.CS2 ;SELECT A DRIVE 
3038 006324 012737 000101 001600 MOV #SELDRV,L.CS1 ;D0 DRIVE SELECT 
3638 006332 104417 0 ;LOAD RK 
3639 006334 104423 TWAT1E ;WAIT FOR INTERRUPT 
see 006336 104002 OR 2 ;TO SLOW/NOT COMPLETE ERROR 
364 006340 104421 TCHKOP ;CHECK_FOR ANY ERRORS 
sg 006342 104004 ERROR 4 ; OR S,6,7 ;REPORT ALL ERRORS. 
364S 006344 737 000010 001610 BIS #RLS,L.CS2 ;LOAD RELEASE 
ca 0063S2 012737 OO0O4O OO01616 MOV #DMD; L.MR1 ;SET DIAGNOSTIC MODE 
4 006360 104417 TLOADRK ;LOAD RK 
3650 006362 004437 036674 JSR R4Y, MCLOCK ;CALL_MAINT CLOCK 
3651 006366 023 -BYTE #019 iN 5 PHASES 
spas 006367 002 . BYTE 2 R OF CLOCK XISTIONS 
see 006370 O42762 OO0040 o000ez6 BIC #DMD , RKMR1(R2) yap DIAG MODE 
3656 006376 104423 TWAT16 ;WAIT FOR INTERRUPT 
320 006400 104002 ERROR 2 >TO SLOW/NOT COMPLETED 
3653 402 104422 TCHKWE sCHECK OPERATION WITH ERROR 
3660 ete .WORD O : 
3661 4 000000 -WORD O 
3662 00641 ooo004 Wd RO UFERR ;UNIT FIELD ERROR 
3553 006412 104004 ERRO! 4 ; OR S,6,7 ; REPORT ANY DISCREPENCIES 
3665S 006414 10441 T T ; CLEAR YSTEM T URE UFE R v 
sper Bbeuie 1 eGoe SSINI LE SUBSYSTE 0 INS ESETS 
3667 ; Tr ey pelea OES OOO, easel 
sree ; ATES UNIT FIELD ERROR ON SELECT 
3670 ‘: ieee A suas Sien CL “a LECT AN AVAILABLE 
3671 3% T CONTROLLER IN D AGNOSTIC MOE ISSUE 
3672 3% A SELECT PEOMMAND WITH MESS ID = 3 AND ORIVE 
3673 ;% SELECTED = 0. BLOCK THROUGH PHASE ADDRESS 6. 
3674 3% TURN OFF DIAGNOSTIC MODE. MAKE SURE UNIT FIELD 
3025 +4 ERROR SETS. 
3677 PTT Terre TTT ttt ttt ttt tit ttt tt iit ttt tittttttttittttittittttitt 


3678 006420 o00004 +4712: SCOPE 


Riatatatatatatats 
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320 


36 


seReeneeee 


BB VER Bio 


NN 


S828 


FEREERERE 


NNNNNNNNNNANNANN 


OB 


WW WWWWWWWG) 
eee et 


ONOWLCWE- 


3726 


Bb36 
0064 
Boewa2 
4 
4 
0064S4 


O064S6 
006460 


006536 
006540 
OOES4E 
O006SS0 


012737 
Test 
104003 


B13737 
1423 
10400e 
104421 
104004 
012737 
005037 
104417 
004437 

026 


00e 
042762 


oooco4 
012737 
104416 
104003 


DIAG 


10-JAN-78 09:35 


000062 


Bovi6i 


036510 


MACY11 (1052) 10-JAN-78 09:57 ence 71 
a SELECT “ee 


001262 


001616 


000026 


006S26 


oo00be 001262 


UNIT FIELD ERROR ON 
Vv #50. ,STIMES 3: TERATIONS 

TSSINIT APP Re BER PTE 

ERROR 3 ;BAD INIT ERROR 


MOV DRVNUM,L.CS2 ;LOAD DRIVE NUMBER 
MOV #SELDRV,L.CS1 LOAD DRIVE SELECT 


TLOADRK sLOO® RK 

TWAT16 ;WAIT FOR INTERRUPT 
ERROR 2 ;TO SLOW/NOT COMPLETE 
TCHKOP ; CHECK _FOR ANY ERROR 


ERROR 4; OR S,6,7 ;REPORT ALL ERRORS 


MOV #DMD!BIT1!BITO,L.MR1 :LOAD DIAG MODE & MSG PAIR 3 
CLR L.cS2 :LOAD FOR DRIVE O 

TLOADRK ;LOAD RK 

ISR RY, MCLOCK ;CALL MAINTENANCE CLOCK 
.BYTE *¢D2e2 :T PHASE 6 

"BYTE 2 :PLUS 2 TRANSITIONS 

BIC #DMD,RKMRI(R2) ;CLEAR DIAG MODE 

TWAT 16 ;WAIT FOR INTERRUPT 

ERROR 2 :TO SLOW/NOT COMPLETED ERROR 
MOV HOLD3, 1S ;EXPECTED ERROR 

TCHKWE . ;CHECK OPERATION WITH ERROR 


1S: - WORD 


-WORD UFERR ;UNIT FIELD ERROR SHOULD SET 
ERROR 4 ; OR 5,6,7 ;REPORT ANY DISCREPENCIES 


-SBTTL #*#ATTENTION HANDLING BY CONTROLLER 


fj MEH HEME AE HEE He EE HE HEE HE EH EEE ERE R EE RRL EERE ERLE RE 
j ATEST 13 DOUBLE INTERRUPT 

ti ISSUE A SUBSYSTEM CLEAR. ISSUE A RECALIBRATE. 

+ MAKE STATUS VALID IS SET. CHECK THAT SECOND 

1 a INTE , AFTER INTERRUPT 

1 3 CHECK THAT ars VALID I ay SSUE SELEC 

1 i AND MAKE STATUS VALID SETS. CLEAR DRIVE. 

+ a CHECK THA IVE § ATUS CHANGE SETS 

* (BIT 14 OF TATU 

i REGISTER) 


+ REGGE GREER ERR REAR RRR REER EER ERR RAA RARER RLERAS 


$6713: 
MO #SO.,STIMES ;;D0 SO. ITERATIONS 
TSSINIT ‘CLEAR SUBSYSTEM 
ERROR 3 :BAD INIT ERROR 


CZR6KEO RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 72 SES 0072 
CZR6KE.Pi1 10-JAN-78 09:35 T13 DOUBLE INTERRUPT 


818737 B8o0rTs 81600 Rov = SRecALt€81 «OAD RECAL 
ipaieg TuaTie. HAT? FO FOR 1ST INTERRUPT 
1640 ERR 2 rae OMONOT cONPLE fe 





7 001662 CLR INTSET a FLAG 
359 100000 001552 ety #SVAL, T.DS TEST oval 
big737 057006 1460 MOV senSVAL ,ENLIN ig 
127 06. 1454 MOV MRCAL,; DFOL1A 
104011 ERROR 11 ;"SVAL NOT SET RESULT OF RECAL” 
000463 BR sos :ABORT TEST 
104437 1$: TWATBS ;WAIT FOR INTERRUPT 
000401 BR 2s NO INTERRUPT RETURN 
; 000404 . BR 3$ OATERRUPT RETURN 
37 4 QObEYO 012737 056301 001370 2S: HOV SENSO, EN2N ;ALTER MESSAGE “NO 2ND INTERRUPT OR IT WAS LATE” 
37 
3 so 1 420 3S: TGETRK ;GET RK REGS 
3738 737 100000 oo1sSs2 git aSVAL, T.DS i TEST SVAC SET NOW 
7 127 i 7 1470 MOV #EM ; 
zy a 
37 006 ERROR 12. ;"SVAL NOT RESET RESULT OF SECOND TEST” 
3764 
are Bert 737 o40000 oo1sS2 4S: BIT ae. T.0S ; TEST DSC SET BY ATTENTION 
76 71 eed 057146 001460 MOV MOSC,EM11N : 
3768 006720 012737 057233 061454 MOV SEMZINT, DFO11A 
3; 0067 AOMOLL RROR Lie ;"DSC NOT SET RESULT OF SECOND INTERRUPT” 
771 
3778 006732 012737 000101 oo1600 SS: MOV #SELDRV,L.CS1 ;LOAD ORIVE SELECT 
774 006740 104417 TLOADRK ;LOAD RK REGS 
3775 O0674e 104423 TWATIE6 :WAIT FOR INTERRUPT 
276 006744 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
ta 006746 104421 TCHKOP ;CHECK FOR ANY ERRORS 
3780 006750 104004 ERROR 4; OR 5,6,7 ;REPORT ALL ERRORS 
7 7 : 
37 2 273? 100000 o015S2 BIT BSVAL, T.DS s VEST 5yac SET 
37’ 006762 012737 OS7006 001460 MOV #EMSVAL , EM11N 
3785 006770 012737 OS0536 061454 MOV #EMSELD,DFO11A 
37 7 104011 at ERROR 11 ;"SVAL NOT SET RESULT OF DRV SEL. 
3788 s eee eee EET NGLE INTERRUPT FROM ATTENTION 
37893 j ATE SINGLE INTERRUPT FROM ATTENTION 


3790 ;# 


E.P 


ie 


Re 
WON CWO: 


@Beoweencoeweeo 


sia 


Bo7002 
nate 
007014 
07 2 
007030 

7032 

7034 


007036 
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012737 000 
104417 
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“Ni 
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10 
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11 

17 
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33 000001 
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MACY11 30A(10S52) 
T14 


001S40 
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09:57 PAGE 73 
SINGLE INTERRUPT FROM ATTENTION 


:% A SEEK TO CYLINDER 0. WAIT FOR INTERRUPT FROM 
1 i Be VE ATTENTI OWER oBEORITY AGAIN AND MAK 
- oFae ANOTHER INTE T OCCUR. CLEAR DRIVE. 
SL LAE AAAI 008; 

HOV #SO. ,STIMES 00.5 a adayeren 

ERROR 3 ACER RROR 

MOV DRVNUM,L.CS2 ;LOAD DRIVE NUMBER 

MOV #SEEK,C.CS1 :LOAD SEEK DCYL LEFT AT O. 

TLOADRK ;LOAD RK REGS 

TWAT 16 *WAIT FOR INTERRUPT 

ERROR 2 :TO SLOW/NOT COMPLETED ERROR 

TGETRK ;GET RK REGS 

BIT #01, T.CS1 TEST DI SET 

BNE YES-SKIP 

MOV i M11N 

MOV MSKSE. DFO11A 

ERROR ;"DI NOT SET RESULT OF SEEK TO SELF” 


$ #25.,RO0 ;LOAD AND DECREMENT A COUNT TO 
3$: DEC RO 5 gERO, GIVE CONTROLLER A CHANCE TO 


BNE 3$ NTERRUPT AGAIN. ERROR IF IT DOES. 
CMP #1, INTSET an ONLY ONE INTERRUPT OCCURRED 
BEQ so$ : YES-SKIP 
MOV #EMMI ,EM13N 
MOV HENSKSF , DFO11A 
ERROR 1 ;"MULTIPLE INTERRUPTS RESULT OF SEEK TO SELF” 
SOS: TCHKOP ;CHECK FOR ANY ERRO RS 
ROR 4 T ALL ERRO! 
; jdeveerpenenectecdanssbedlasesktuatnaeaetaseaeenennecensecess 
j ATE RESET ATTENTIONS WITH UNIBUS INIT 
+s DO A SEEK T CYLIND R_O ON ALL AVAI TABLE DRIVES. 
5 ISSUE A RESET. SURE ALL ATTENTION RESET. 
Nenrmggernenereneneenentnennnnnnonanaenee 
“MOV #5. ,STIMES ; : fee RATIONS 
TSSINIT 5 APP 
ERROR 3 ?BAD ENE? ERROR 
MOV DRVNUM,L.CS2 ;LOAD DRIVE NUMBER 
MOV #SEEK,L.CS1 *LOAD SEEK (TO SELF-O) 
TLOADRK ;LOAD RK REGS 


SEG 0073 


os 


cents RK& FCTNL CTRL DIAG 
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007164 
007 166 
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007666 
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000012 
000003 
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09:S7__PAGE 7 
RESET ATTENTIONS WITH UNIBUS INIT 


TWATI6 wall FOR INTERRUPT 
ERROR 2 TO SLOW/NOT COMPLETE 
TGETRK eet RK REGS 
BIT #01,T.CS1 TEST DI SET 
BNE 1$ YES-EXIT 
MOV #EMDI,EM11N 
MOV #EMSKSF , OFO1L1A 
ERROR 11 ;"DI NOT SET RESULT OF SEEK TO SELF 
BR 50s 
1S: CLR INTSET 


;CLEAR_INTERRUPT COUNTER 
;00 UNI RESET 

;RESET KEYBOARD INTERRUPT 
;CLEAR_TICK COUNTER 


JSR PC, STKINT 
CLR LCLKTK 


Ss: ISR PC. MYTIME :CALL T 

CMP #10. ,LCLKTK :COUNT 10 TICKS (MILLISECONDS)? 

BNE S$ :NO - LOOP 

MOV BIE, RKCS1(R2)  ;SET IE FOR ANY STRAY INTERRUPTS 

ISR PC, OPTTST :SET OPTIONS AGAIN 

TWAT16 ;WAIT 16 MS FOR AN INTERRUPT 

BR 2s :NONE I EXPECTED SO RE TURN SHOULD BE 

:HERE-BR TO CONTINUE TEST 

MOV i ial EML3N ?INT OCCURRED ON RESET 

MOV MRSET; OFO11A 

ERROR ;"UNEXECUTED INTERRUPT RESULT OF RESET” 
2s: PR eTRK ;GET_RK_REGS 

BIT so. ,T.CS1 :TEST DI RESET 

ROY s«BEMDI EM12 phe 

MOV sENRSET, bFo11A 

ERROR ;"DI NOT RESET RESULT OF RESET” 


SOs: 
-SBTTL #*#ILLEGAL DISK ADDRESS ERROR TESTS 


3 peeazdeseuceceusesse mM moe ae DTT 
I kTE ILLEGAL DISK ADDRESS (PART 1) 


; ISSUE A SEEK TO CYLINDER rt) HEAD 3 MAKE SUR 
ti ILLEGAL SS ERROR AND SEEK NCOMPLE Te UBES. 
1 i CLEAR CONTROLLER 7h .¢ CLEAR DRIVE. RE FOR HEADS 4-7 
+ % HECKING THAT BOTH A PORE AND SEEK INCOnPL TE SET FOR 

x ALONE SETS FOR HEADS 4, 5, AND 6. 


sprttggggtneeerneneneeseneneeeentntenentnee 
,00 10. ITERATIO 


#10. ,STIMES ; NS 
:PRESET FOR SELECTING TRACK 3 


MOV #3,R1 


SEQ 0074 


on, 


KO6 


CZR6KEO RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 75 SEQ 0075 
CZR6KE.P11 10-JAN-78 09:35 T16 ILLEGAL DISK ADDRESS (PART 1) 
3903 907356 104416 TSSINIT ;CLEAR SUBSYSTEM 
3308 7 104003 ERROR 3 
007362 012737 000113 001600 MOV #RECAL,L.CS1 ;SET UP TO RECAL 
007. 013737 001626 001610 MOV DRVNUM, tC: cse ;LOAD DRIVE 
3309 007376 104417 TLOADRK ;LOAD RK REGS 
11 007400 1044 6 ;WAIT FOR 1ST_ INTERRUPT 
3312 at 10 des ERROR 2 :TO COR eNOT COMPLETE ERROR 
3313 007404 005037 001662 CLR INTSET ;CLEAR INTERRUPT FLAG 
“2 07410 104437 TwATBS ;WAIT FOR INTERRUPT 
17 D0741e 104002 ERRO 2 
3919 007414 012737 OO7422 001110 MOV #1$,SLPERR ;SET LOCAL LOOP ON ERROR 
: 1 7422 104416 1$: TSSINIT ;CLEAR SUBSYSTEM 
g 7424 104003 ERROR 3 :BAD INIT ERROR 
3924 007426 013737 001626 001610 MOV DRVNUM,L.CS2 ; LOAD DRIVE NUMBER 
3925 go74 a4 012737 000117 001600 MOV #SEEK,L.CS1 it ap OAD SEEK 
3368 442 110137 001607 MOVB R1,L.0T RACK 
74 104417 TLOADRK aeen i REGS 
74 104423 TWATI6 part FOR INTERRUPT 
. 007452 104002 ERROR 2 TO SLOW/NOT COMPLETE 
3338 0074S4 701 ooo0001 BIT #BITO,R1 Test If, HEAD ADDRESS HAS BIT O 
3634 00 * 537 ooo002 ad qaITI R1 NOs Fe ESS HAS BOTH O AND 1 
3335 0074 Too? BNE = : YES- F hea BOTH tbat AND SKI SET 
3937 74 1044 2s: TCHKWE ; CHECK RATION WITH ERROR 
tanta 0020) IDAERR :ILLEGAL DISK ADDRESS ERROR 
7474 0 
3 eee 0 
33] 00 104004 ERROR 4; OR S,6,7 ;REPORT ALL DISCREPANCIES 
00 415 SCOP1 *LOCAL LOOP ON ERROR 
3943 007504 06 BR 4$ 
5 4 3S: TCHKWE ;CHECK OPERATION WITH ERROR 
3aue neat bosons IDARERR! SKIERR ;ILLEGAL DISK ADDRESS ERROR 
3347 o0751¢ 900006 - :SEEK INCOMPLETE 
394 00 104004 ERROR 4 ;O0R 5,6,7 ;REPORT ANY DISCREPANCIES 
3350 7 104415 SCOP1 :LOCAL LOOP ON ERROR TO 1S 
7522 005201 4S: INC Rl BUMP TO NEXT ILLEGAL TRACK 
3325 7524 022701 o00010 CMP #8.,R1 ‘BLE ILLEGAL TRACKS SELECTED? 
3954 7530 001334 BNE 
ss 5 {Hered tired tence eiensehinienneaneseneeneenecnenaecee 
3956 ; ATES ILLEGAL DISK ADDRESS (PART 2) 


3957 
3958 i ISSUE A SEEK TO CYLINDER 1000, HEAD O. MAKE SURE 


ESReKE Pit” POE IAN 7a 09: 735 


007640 
W008 07650 
4005 

doo? Bo7e5e 
Woo8 Bo 007662 
401 a 


ooo004 
012737 
104416 
104003 


012737 
013737 


104417 
104423 
10400e 
005037 


104437 
104002 


012737 
104416 
104003 
013737 
012737 
005737 
001462 
000137 


012737 


104417 


104004 


001662 


007606 


007666 


001000 


MACY11 api lose). Aa. AN eK wig PARE TS 3) SEQ 0076 


7 ILLEGAL DISK ADDRESS ERROR SETS. CLEAR CONTROLLER AND DRIVE 
1 THIS TEST TS BYPRSGED FOR T RKO7 BECAUSE THE RKO7 
is CONTROLLER COGNIZ ILLEGAL DISK ADDRESS 
ee Re ne eee 
001262 MOV #10. ,STIMES ; D010. IT ITERATIONS 
TSSINIT fALE SYSTEM 
ERROR 3 :BAD tNETe ERROR 
001600 MOV #RECAL,L.CS1 ;LOAD RECALIBRATE 
001610 MOV DRVNUM, - cs2 ;LOAD DRIVE 
TLOADRK ;LOAD RK REGS 
TWAT16 ;WAIT FOR 1ST INTERRUPT 
ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
CLR INTSET ;CLEAR INTERRUPT FLAG 
TWAT8S ;WAIT FOR INTERRUPT 
ERROR 2 
001110 MOV #1$,SLPERR ;SET LOOP TO BYPASS RECAL 
1S: TSSINIT ;CLEAR SUBSYSTEM 
ERROR 3 
001610 MOV DRVNUM, L.CS2  ;LOAD DRIVE NUMBER 
001600 MOV WSEEK,£.CS1 :LOAD SEEK 
TST DTY SEE IF RKO6 
BEQ 2S BR_IF 
; MOV #177 DCYL ieL L8G, 8 RKO? ILL CYL 
: nov §. TOAERR? SKTERR> '4 XP RKO7 ERR 
; IMP TST20 ;RKO7 ecoren san 
*DOES NOT RECOGNIZE 
:ILLEGAL DISK ADDRESS 
tREV O06 THE ABOVE THREE LINES 
001614 2S: MOV #1000,L.DCYL LORD DKO& ILL CYL 
; MOV #IDAERR, 4S :EXP RKO& ERR 
3S: TLOADRK 
TWAT 16 shot? Fo FOR RES FERR RUPT 
ERROR 2 :TO SLOW/NOT EONPLETE ERROR 
TCHKWE ;CHECK OPERATION WITH ERROR 
4S: .WORD  IDAERR *DISK ADDRESS ERROR 
“WORD O 
“WORD O 


ERROR 4; OR S,6,7 ;REPORT ANY DISCREPANCIES 


-SBTTL ##WRITE HEADER TESTS 
55 HE HEE HE RE HE HE HEHE HE eH HE EH SEE HE AE HEHE HE HE HEE HE HE EE REE EK EEE 


CZR6KEO RK& FCTNL CTRL DIAG 
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£08037 
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se 
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013737 
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09:35 
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036476 
036252 
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READ BAD SECTOR INFORMATION 


;*¥TEST 20 READ BAD SECTOR INFORMATION 


1S: 


— OO Se eS SS Sees SEE Sees we SESS SE es eEes SEwe we 


FRC TRC DRC RC RC Re RC RC RC RC RC RC CRC RC RC RC RC oC RC 


TRRck 8 Fo"celt The FactOny’betetteS BAD’ 


SECTOR FILE, 26 SE 
CYLINDER 14S6 IS oan FOR THE RKO7. 


AY sflécESEPD. "REH” 1s "Boke: fF Nofe RenB’ sUcce BEPC. LV! 


AD IS aan 
Test THT T THe Pack Je ND NOT aN ALIGNMENT PADK AND 
REPEAT THES SERIES. oF OPERATIONS FOR FACTORY DETECTED 
GS SEiGes 62 SECTOR PORE: SSSR Ele 
SUR'S "tc PFEA ROBE BxclEo SEM Hc"baPOE.TEARRGVES 


To ma 5” pe patent ities tates damilalasaliaidh titled ita ie bit 


+éT20 


SEQ 0077 


#1,STIMES ;;00 1 ITERATION 
TSSINIT ; CLEAR eye FROM LAST IDAERR 
ERROR 3 ;BAD IN RROR 
MOV #RECAL,L.CS1 ;D0 RECAL CMD 
MOV DRVNUM,L.CS2 
TLOADRK ;LOAD “L” REGS INTO RK REGS 
TWAT1E 
ERROR 2 ;NO INTR 
CLR INTSET ;CLR INIT FLAG 
TWATSS ;WAIT_FOR 2’N INTR 
ERROR 2 ;NOT THERE 
cLRS 34 ;CLEAR SECTOR POINTER 
CLR RS AR RS_F Ro CTOR COUNTIN 
MOV BSF26P,R3 Set count oh ie) STORE BS 26 S CF FORMAT 
MOV #15, SLPERR T ERR oe eT NN ADDRESS FOR INTERNAL LOOP 
TSSINIT tar eaR SUBSY 
ERROR 3 ;BAD INIT ERROR" 


MOV LSTCYL, 15$ 


R4Y, LRLOAD ;LOAD "L” REGS WITH 
aa ; READ DA ay 
; WORD COUNT 
IBUFF ; BUFFER ADDRESS 


NO6& 


c O RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 78 





C -Pil 10-JAN-78 09:35 T20 READ BAD SECTOR INFORMATION 
4074 g07744 000 2s: -BYTE g ; SECTOR ADDRESS 
073 BOF oue 000505 1S$: ) ; CTL INDE ADDRESS 632/14S6 
0 sL “L” RE NTO RK 
4078 TWATI1e j WAL FOR | Mae ¢ 
40 ROR iT SLOWNOT COMPLETE ERROR 
4078 TCHKOP CHEK FOR ANY ERRORS 
ERROR 4 ; OR 5S,6,7 i RE T ALL ERRORS 
4080 SCOP1 TO i$ IF SW 9 SET 
doBe 001103 TSTB SERFLG TEST FOR ERROR IN OPERATION 
3 BEQ 5 NO-SKIF 

4084 rst RO :GET ING A BS FACTORY SECTOR 26 SECT FORMAT? 
408e oo0002 007744 ADD 82,25 NO SKIE CTOR ADDRESS 
408 1 000012 007744 CMPB #10. ,2$ :PAST APPLICABLE SECTORS? 

1 BNE 6S }NO-SKIP 
4 1 056400 001360 MOV #EMS1,EMIN 

1 ERROR 1 CCANNOT READ BS FILES 
403 1 0016 001354 ess: BIC RVBIT, SDEVM i CLEAR ORIVE FRO FROM DRIVE MAP 
4 i rent oie CERRY’ SET ORIY T OBgeS 
4035 1 922700 000001 3S: CMP #1,RO GETTING A BS SOFT SECTOR 26 SECT FORMAT? 

97 i 1013 7744 EOD a2 2s NEXT 

1038 i 5737 aaa 007744 chPB #22. , 2S el SEATS BLES EPR rors? 
4100 1 12737 056400 001360 MOV #EMS1,EMIN 
41 1 04001 ERROR 1 meat READ BS FILES” 
it 101 bodes BR ess 
4104 010102 2 ooo002 4S: CMP #2, RO ;GETTING A BS FACT SECTOR 24 SECTOR FORMAT? 
4105 0101 19 4 BNE ?NO-SKIP 
4108 O11 2 32 ooo002 007744 ADD #2,25 *NEXT SECTOR ADDRESS 
41 10116 122737 000013 0607744 CMPB ail. 2S ?PAST APPLICABLE SECTORS? 
4108 010124 O01 BNE ?NO-SKIP 
4110 0101 012737 OS6400 001360 MOV #EMS1,EMIN 
4111 pio ss thG001 ERROR 1 F ;"CANNOT READ BS FILES” 
dite 010136 0600732 BR ess 
4114 101 7 00 07744 SS: ADD #2, 25 ;NEXT TOR (BS SOFT 24 SECT MODE) 
dite 61giae 138737 etnies 07744 cHPS 34 2s {a8 APPL IcABL SECTORS? 
4117 010156 012737 OS6400 001360 MOV #EMS1,EMIN 
4118 ot 164 104001 ERROR 1 “nent READ BS FILES 
ui 10166 0716 BR ess 
4121 010170 105037 001103 6S: CLRB SERFLG ;CLEAR ERROR FLAG 
dige 010174 000651 BR i$ :D0 NEXT READ 
4124 010176 005737 O70422 7S: TST IBUFF +6 ;CHECK FOR ALIGNMENT PACK 
4i5¢ 010202 1405 BEQ *NO-SKIP 
4126 010204 012737 OS6473 001360 MOV #EMS2, EM1N 


re eee a 
i 


ee eeEEEEeee————eEEeEeEeEEEee ee 


CZR6KEO RK& FCTNL CTRL ORS. 


CZREKE.P11 
4127 ot le 
diss 10214 
4] 

41 010216 
4131 

41 10222 
4] 1 

4] 1 

41 1 

4] 1 

4] 1 

41 1 

41 1 

414 1 
4141 1 ub 
4142 10262 
4143 010270 
4144 

4145 4 
sive Bi 
414 1 

414 10310 
41 1 Ay 
4151 1 
41Se 1 
vis3 Ot 
4igs Ol 
wise OL 
wise i036 
wise 

4161 ot uy 
416e 1 
4163 Bt Rae 
4164 1 Ban 
4165S Bt 
4166 1041 
4167 

4168 010414 
1132 010420 
4170 

4171 

4172 O10424 
4173 

4174 

4175 

4176 

4177 

4178 

4179 

4180 

418i 010430 
4182 010432 


10-JAN- 


es 
S882 


ee 


S See 
88 8 
5 


88 


Sachs 

be hee 

Morr 
_ 
- 


“XN =—NWNO 
wr WwW 
NW NN 
- 
8N 88eN 
N Sa 
oN io 
N oN) 
N Wwron 


Bete 
ph 


oO 
-_ 
At) 
N 
Oo 
Oo 


177777 


MACY11 30A( 1052) 
Te0 R 


001360 


001354 
001666 


007744 


007744 


007744 


10S: 


11S: 


12S: 


13S: 


14S: 


278: 


27S: 


10- 


JAN-78 09:57 PAGE 79 
BAD SECTOR INFORMATION 

i. ;"ALIGNMENT PACK. DRIVE ABORTING” 
#IBUFF+10,R1 ;SET TO START OF BAD SECTOR DATA 
#-1, (R1) ;TEST IF WORD ALL ONES (END OF DATA) 
(R1)+, (R3)+ HT) YLINDER 

(R1)+; (R3)+ baa TRACK BND CTOR 

#21.,R5 DOES Boes ft RROOTAL oO 20 FOR THIS FORMAT? 

sD EST AND MORE NEXT ADDRESS 
MS3, EMIN 
;TO_MANY Sea 

DRVBIT, SDEVM ich AR_OR ROM TESTING 
ORVBIT’ DRVORP 
NEWDRV 
RO al TO NEXT 

1,RO ?NOW TESTING BS SOFT 26 SECTOR MODE? 
Let HINSERT En 

#-1, (R3)+ ; INSER OF FIELD FLAG 
R3, 8SS26P ; Tr BAD SECTOR SOFTWARE FIELD 
#12, eS ; Min CTOR THIS MODE 
43,,RO iB, a NG BS FACT 24 SECTOR MODE? 
#-1, (R3)+ H nSER FLAG 
ch a ise tg ke THIS MODE 
Re? aM f eanele eR FOR COUNTING 2 24 SEC 
BSFe4P,R3 CE ER FOR STORING 
1 :G0 RERO 
#3,RO ;NOW TESTING BS SOFT 24 SECTOR MODE 
148 sNO— -SKIP 
8-1, (R3)+ He NSERTE END OF FIELD FLAG 
R3,8SS24P j STORE BRT OF Fle 24 SECTOR MODE 
#13, 28 GE FIEL 2° BSS 24 SECT MODE 
1 ?GO READ 
#-1, (R3)+ s INSERT END OF FIELD FLAG 
RS, BS24CT ST COUNT BSS 24 SECTOR MODE 
#8S26 , RO ;GET START OF BAD SECTOR BUFFER @ 
#8524452. ,R3 :GET END OF BUFFER 
#312, (RO)+ ;TEST IF _ANY SECTORS BAD IN CYL 312 
26$ :YES - GET OUT 
RO R3 ;CHECK IF ALL OF BUFFER TESTED 
27$ *NO - L 
28s ‘EXIT 
R3 : COUNT 
#-1, (RO) :AT THE END OF TABLE ? 


BO? 





SEQ 0079 


j 


CZR6EKEO RK6 FCTNL CT 


ratsitalal 


CZREKE.P11 
4183 010436 
41 10440 
ties Signe 
4182 DIONE 
186 SiSiE8 
4] 1 
4191 1 yy 
41 1 
41 1 
ig 10474 
41 1 
He / 
413 910815 
: : pipet 
420 01 
4204 010530 
4e0S 
4206 010534 
4207 
4208 
4209 
4210 
4211 
4212 
4213 
4214 
4215S 
15 osm 
31% 10594 
us? 010544 
Wee0 Bis 
4222 010562 
eeu 010564 
see Bite7e 
W227 10874 
4550 ten 
gee! 
4233 010604 
4234 ot 10 

ot 
Ol 
ol 


oO 
o 
fur 
turu 


lO-s8N 78 09: 35 


001404 


104416 


000312 


OS74Se 001360 


ooodie Oo0lebe 

000312 001676 
18867 
0 
036252 
042636 


010622 001110 


16S: 


178: 


18S: 


19S: 
26S: 


28S: 
; ATES 


ee me 


+6721: 


9S: 


11S: 


111$: 


BEQ 


16S 
ss Bees 
6 

RS a 

17$ 
BSSeeP, ,RO 
R3, #2 


Boo, RO 


27s 
R3, #3 


asseur, RO 


pa 


ess 


CO7 
MACYL1 3981052) AB BAD SECTOR: TMFORAATION 


;BRANCH IF SO 


;SEE IF 1 ST wr OF BS 26 TABLE 


Sind P*Rot TRY AGAIN 


; BRANCH 
; MOVE UP THE TABLE 


SEE IF ay ND HALF OF BS26 TABLE 


ANCH I 
LSE MOVE UP 1 


sce IF DID 1 ST HALF OF BS24 TABLE 


RANCH IF 


LSE MOVE te 2ND HALF OF BS24 


fu. DONE 


;"BAD SECTOR IN AREA FOR TEST” 


26 SECTOR F 
oar Cv INES Bhe.. res O AND TRACK 


SEER MITC RMLTESMEBOEE "OR IN READING 


TSSINIT 


#10. ,STIMES 
#312,REFMT 


R4Y, LRLOAD 


R4Y, GENCOM 
94118, SLPEM 
1 


;;D0 10. ITERATI 
tem Hse ig ie Tor BO 

4 

+ GAD NITE ERROR 


3L “L” REGS 
4289 HEADE 


R 
; WORD on FOR 26 SECTOR MODE 


; BUFFE 
:SECTOR O 
: 0 
;CYL O 
OEE HEADE 


Sere HEADERS -NO BAD SECTORS 


ytoce LO 


cugen SUBSYSTEM 


ST HALF 


Ts ee A gy ec receenienimeae 
FORMAT IN ORMAT 


1 FOR 26 SECTOR 
THAT DATA tate DID NOT 


x 
= Se 3G 3 Sb 36-3 HE Se 2 Me SE EH HE aE He EE a EH HE HE HE a a a RRR EH 


ONS 


btn 


T 


ON ERROR 


SEQ 0080 





SEQ 0081 
- JAN- :S7_ PA 1 
ESREKECPT1” “TBssaneve Ooras | CY ee a S2éFOR FORMAT 


;BAD_INIT_ERROR 
RROR 4 K ed 
104003 ‘ems a iT Oee ERRUPT 
“ef Bi Beeb Gadi ss thei 2 inate, or COMPLETE ERROR 
434 
SS Senet tanks Teamor 15S SR 
° 7 s 
10634 104421 ERROR 4; OR 5,6, 
i Bidese | 1040bs scoph ; INTERNAL LOOP TO 111$ 
4 
104415 enncn 
weg eal 1 010702 001110 Mov RS" SLPERR BUILD POINTER TO RKOB 
4 ibeso i Dy AbD sour 21 ;SET POINTER 10 BUFFER 
W253 010662 004437 36252 RDHEAD {NO WORDS. COUNT 
yey NO 
bites tities aes eee 
: {Berg PO0RRE 0 :° TRACK O 
Weo2 O10B74 Boe 108: BYTE : CYL ale 
4288 010676 000312 ~ = ;SKIP INIT 
“gel 919799 ooowo2 es ghee 
Ss lem ines Fea 2 Ee a 
use 6 1O7be 104417 es: THATIE > ia ye SRR te ERROR 
uSE3 010714 104421 Toe 4; 9B 5,6,7 Pate 
4B7) Ot T2700 o00003 ss: Mov. CRAD-CRLD4 
4 1 11321 C TGETRK #OLT.T.cse2 esr “te bata LATE 
Rte site Ge sg Bea Boor, EM13 ; 
4B76 OL Pet HOV 118 DB READ 
012737 055173 os OY Senmhs Es Bs sig’ aah ene 
$37 Hea Saale, Pinatas ennpe r3 SLOcAL LOOP 70 1128 
4 T 
4279 010756 104415 ort; geumnttun a teat be emt Bem be 
4587 OL 37 100000 OO1SHO 38: BIT ac NOS SKIP 
deed O1o7%% Biers? Besant OetaSs MOV. —- #EMROB, OF 55 RESULT _OF READ 
ee tie ten & Bn Cee 
Se bine teu - © p Ae ee 
4 
W5es O11019 612737 011024 001110 MOV $117S,SLPERR SET LOCAL 
4289 011019 012737 R 7§ 
Wsa0 011866 & 117S: ;CLEAR SUBSYSTEM 
Weep a O4416 TSSINIT {BAO INIT ERROR cas 
4833 O1l0s6 104003 75: Son’ R4, RDSTHD ;GO READ & SEQU 
4294 011030 004437 036740 : 





SSS Ses 


O07 


CZR6KEO RK& FCTNL CTRL DIAG MACY11 30A(10S2)_ 10-JAN-78 09:57 PAGE B2 SEQ o082 
CZR6KE.P11 10-JAN-78 09:35 Tel FORMAT IN 26 SECTOR FORMA 
4295 011034 104421 TCHKOP ;CONTROLLER ERROR RETURN 
4296 011036 104004 ERROR 4; OR S,6,7 ;REPORT ALL ERRORS 
4297 O11040 104013 ERROR 13 :"DATA LATE SET RESULT OF DATA BUFFER READ” 
4 011042 104002 ERROR 2 ;“OPERATION TO SLOW" MESSAGE 
4 :0R "HEADER O NOT FOUND” MESSAGE 
4301 011044 004437 042636 JSR R4, GENCOM 
4303 011052 Bods aR 6s + EOD RETURNCNO NESCOMPARES 
4308 011054 104015 ERROR 15 :REPORT 1ST MSCOMPARES 
4308 11 13700 001634 MOV ERRLMT , RO ;GET ERROR LIMIT 
4 11 5300 12S: DEC RO j DECRENENT IT 
4308 011064 001407 BEQ BS :EXIT IF ZERO 
4309 011066 004437 042636 JSR R4, GENCOM 
4311 011072 oO40000 o40000 ;RESUME COMPARE 
u3le 11074 900403 6$ ?GOOD RETURN-NO MORE ERRORS 
431 11076 104016 ERROR 16 ‘REPORT NEXT ERROR LINE 
4314 911100 909770 ER 12S ;LOOP 
4318 111 104415 SCOP1 :LOCAL ERROR LOOP TO 117S 
4317 011104 105737 001607 6S: TSTB = L..DT ;WAS TRACK 1 JUST DONE? 
4318 011110 001010 BNE 8s ; YES-SKIP 
4320 O11112 112737 O00001 010601 MOVB = #1, 11S ;CHANGE PARAM TO LOAD “L” WITH 
4321 011120 112737 o00001 010675 MOVB = #1, 108 ; TRACK 2 
432 011126 000137 Oo10S566 IMP 38 :JUMP TO DO ENTIRE TEST ON TRK 1 
4324 011132 8S: 
4325 
W328 .SBTTL HEADER RECOGNITION TESTS 
W356 4 tL TEST ASS NANAHMAEAD SECTOR ERROR ne 
4337 is FORMAT CYL woRAck O, ON SCRATCH PACK TO HAVE 
es HE REET BOI Ate teinenthcte ho seta tect | 
4334 i ALL OTHER wong 2, 
1338 i ISSUE Ab WRITE DATA OR WORDS TO.CYLINOER 31 312, uprack 0, 
4338 :# ITE DATA TO CYL Bae TRBCK 8 cTOR ior a ORDS. 
4339 " MAKE SURE BAD SEC OF aur WRITE DATA 
4340 # OF 400 0 WORDS TRELINOER 6 0, SF RACK 0, UEECTOR Py MAKE 
4342 : % 
ms a 011132 04 } ae ae 
4345 011134 012737 oO00012 o01262 "MOV #10. ,STIMES ;:D0 10. ITERATIONS 
4346 011142 012737 OO003le 001676 MOV #312; REFMT ; SET T REFORMAT SWITCH 
4347 O11150 104416 TSSINIT CLEAR SUBSYSTEM 
4348 011152 104003 ERROR 3 ‘SAD INIT ERROR 
4350 011154 004437 036252 JSR R4, LRLOAD ;LOAD “L” REGS 


CZR6KEO RK6 FCT 
CZ2R6KE .P1 10-JAN-78 09:35 


He ee ee eee 
rr furor fi 
R2 RSe Noro 
Moco 


000 BO0O00O0000000 200 200000 


se G3 INS RREREPRSS 


00000 
WWW 
ararey 
ocr 


Ree ee 
a §  codauel aul appl peli aol gel cel ced ce ced ed ded eed ed ed ceeded eed ed ed ed ede ee ed ed 


RRB 


Q000 


oO 
= 
~ 
Ww 
<£ 
oO 


NL CTRL DIAG 


177676 
072414 
000 


oo0312 


Oo 
mM Ww Sin Bane 
mM uN St Ve <= 


oe 


042636 
072416 
100000 
100060 
040000 
040000 


011246 


036252 


o0000e 


oooo0e 
011264 


MACY11 30A( 1052) 
Tee 


001110 


011264 


011264 


SS: 


1S: 


6S: 


CMP 


TCHKOP 


O07 


10-JAN-78 09:57 PAGE 83 
BAD SECTOR ERROR 


4 ; OR 5S,6,7 
#4$, SLPERR’ 


3 
R4Y, LRLOAD 


oo 


#2,5$ 


TRACK 
‘CYLINDER 


; GENERATE HEADERS 
;WITH NO BS BITS 
;RESET BIT 15 IN WORD 2 OF 
;SECTOR O HEADER AND BIT 14 
N WORD 2 OF 1 HEADER 


S 
3 RRUPT 
;TO SLOW/NOT COMPLETE ERROR 
;CHECK_IF ANY ERRORS 
ORS 


;REPORT ALL ER 
;SET LOCAL LOOP ON ERROR 


5 
~ 
n 
°o 
aD 
i! 
z 
4 
m 


jl “L” REGS 
sWRITE DATA 


iSECT 
; TRACK O 
;CYL 3le 


sLOAD RK REGS 

;WAIT FOR INTERRUPT 

;TO SLOW/NOT COMPLETE ERROR 
; JUST RESO SECTOR 2? 

;YES - SKIP 


CHECK OPERATION WITH ERROR 
EXPECTED BSE 

;REPORT ANY DISCREPENCIES 
;LOCAL ERROR LOOP TO 4S 
;WAS SECTOR SET TO 2 

iMURP TO NEXT SECTOR 

‘LOOP 


;CHECK FOR GOOD OPERATION 


SEQ 0083 


ESREKE. 


44 
44 
0 


O RK6 FCTNL 
Pil 10- 


O1i34e 1 
011344 


ps aS: 


REBS 


OO000000 O00 2000000 20000 


Sy ee ee ee ee ee 


£f £L£EELIECL ££ 


oOo 
££ 
vo 
88 
eS 


fo FeSeES 
<£ 


o 
<= 


& for 


eee ae lol ouel ound qm cl mall soul ound ond ened ocd onal ocd onal oad oot od eel ed eed ee ed ed edd 


Kee he eee 


Oo000 OOO 20000 


UF = = = 


ER8R2NenW OF 
2 
oO 


= shno9e 09: 35 


04004 


042636 


072420 
000001 


000006 


011464 


036252 


GO? 


MACY 11 39951052) JO- AN ee RGA PAGE 84 


001110 


ERROR 4 ; OR S,6,7 


;REPORT ALL ERRORS 


55 HE EAE SE A SE A ae a a A a a a a a a a a a aaa 
ST 23 HEADER VRC ERROR 


RATCH PACK TO HAVE 
TE DAT 


Se Ae oh ray ya 


ae ieenteee 


7$: 
j ATE T 
i T CYLINDER 312, 
if 
se 
;% 
+723: 
#10. ,STIMES 
Par aoe #312; REFM 
ERROR 3 
JSR R4, LRLOAD 
WRHEAD 
-10 
OBUFF 
-BYTE O 
“BYTE O 
3i2 
J R4, GENCOM 
MOV sOBUFF +4, RO 
MOV setto R32’ 
1$: BIT CRO) 
BEQ 
BIC Sone) 
BR 3$ 
2s: BIS R3, (RO) 
35: ADD #6; RO 
AS R 
BEt«*‘AS 
LOADRK 
TWATLIe 
RROR 
TCHKOP 
ERROR 4; OR S,6,7 
Vv #4$, SLPERR 
$: TSSINIT 
RROR 3 
SR R4, LRLOAD 
WRDATA 
-400 
OBUFF 


;00 10. ITERATIONS 
; jSET RE 


FORMAT a 
YST 


“L" REGS 


: aS a 
Beart 3 
3 


;BUILD HEADERS NO BSE 

i BE get Rite 
AL 
;SKI 


;IF ZERO SET IT 
:BUMP TO NEXT VRC WORD 


Pe blr NOT SHIFTED OUT-LOOP 


SBT BTy FoR INTERRUP 

ERROR 
CHECK rig GHPLETE ERR 
;REPORT ALL ERRORS 
;SET LOCAL LOOP 


;CLEAR SUBSYSTEM 
;BAD INIT ERROR 


LOAD “L” REGS 
iaRITE DATA 
;WORD COUNT 
;BUFFER ADD 


Sf€Q@ 0084 


CZR6KEO RK& FCTNL CTRL DIAG 
CZR6KE.P11 10-JAN-78 09:35 


wed 11808 


4465 011504 


~ 
- 
be be 


£ 
= 
oO 
Pel ond ond ocd eli onl oo 


uv 
tu 


=< 
a 
eee ee 


BEA Ke te 


fff 
Ur 
BEN 
Poul 
2 Rene 


00 O80O00000 20000 
ae a fe Re be he bat bh ee Re 


CN POO 
ou SNTewo 


ONOULSWe-O 


000312 
ta SA 
104002 


2737 
1415S 


104422 


004437 
000600 
042737 
104417 


MACY11 30A(10S2) 
Te3 


oooded 011502 


000012 
000312 


036252 


042636 


100000 


011502 


001262 
001676 


072416 


6S: 


10-JAN-78 09:57 PAGE 8S 
HEADER VRC ERROR 


-BYTE 0 ;SECT 
“BYTE O : TRACK 
312 CYL 
TLOADRK LOAD RK REG 
TWAT32 :MaTY FOR INTERRUPT 
ERROR 2 TO SLOW/NOT COMPLETE ERROR 
MP #16. ,S$ ; THIS WRITE SECTOR 167 
mu 68 LAB 
TCHKWE :CHECK OPERATION WITH ERROR 
40 ;HVRC EM EXPECTED 
ERROR 4; OR S,6,7 ;REPORT ANY DISCREPENCIES 
SCOP1 ;LOCAL LOOP TO 4$ 
INCB S$ OR_IN “Le REG 
CMP #16,5$ ies F SEC SR IS 16 OR LESS 
BRC? 
FE uKOP ELSE, E Kacy OPERATION NO ERRORS 


ERROR 4 ; OR S,6,7 ;REPORT ALL ERRORS 


HGH HEEEH}EE HEEB} HEHEHE HEHEHE HEEB BHHBHE 
EST 24 BAD HVRC ERROR 


SECTOR ERROR AND 


poms A SAD SECT 312, TRACK O SUCH THAT SECTOR ZERO HAS 
TOR ERROR AND HEADER VRC. ISSUE A WRITE DAT 
TO CYLINDER’ 0 , TRACK O, SECTOR 0. MAKE SURE ONLY HEADER YRC 


= cee" ay caitlin amin elec al hi 


janes 


#10. » STINES ;:D0 10. oR TERATIONS 
MOV #312) REFM fois 


ERROR me GEIR” 


a eye ‘1.080 “L"™ REG 

-102 HOA h cht FOR 26 SECTOR MODE 
OBUFF 

-BYTE O teECTOR 

.BYTE 0 ; TRACK 

312 ; CYLINDER 


JSR R4, GENCOM 
600 ;BUILD HEADERS-NO BSE 


BIC #BIT1S,OBUFF+2 ;CLEAR BIT TO SET BSE,LEAVE YRC BAD. 
TLOADRK ;LOAD RK REGS 


EEE 


CZREKEO RKE FCTNL 


CZR6KE.P11 10- 
4519 011640 104431 
Gp sie 8a 
116494 104421 
ee BLES IBC 
4SeS 0116 37 
4 118 4 123 
4 11 4 400 
4 11660 072414 
11 poe 
4231 O1lee4 00312 
4532 
433 O11 104417 
4534 011670 104424 
Weg5 011672 104002 
4537 011674 104422 
4538 0116 
HE 11 00004 
4540 011702 0000 
4641 011704 104004 
4543 
4544 
4S4S 
4S46 
4547 
4548 
4549 
deer 0117! ooc004 
eee 011710 012737 
4 011716 012737 
4SS4 Bt igs? 104416 
zee 0117 104003 
dees 011730 004437 
4558 011734 000127 
sera Bitte bree 
qee1 01174 000 
4S6e 011743 000 
seen 011744 000312 
were Bt iza8 Dotan 
usee BLLPeS 
4568 011754 052737 
mis > 011762 052737 
4571 011770 104417 
4572 011772 104431 
4573 011774 104002 


shee. 09: 35 


036252 


042636 


001000 
001000 


Se Se a 


07 


MACY11 S08( 1052), A0- AOL? 09:57 PAGE 


072614 
072616 


SECTOR ERROR AND HVRC ERROR 


TWAT112 Mois FOR INTERRUPT 
ERROR 2 TO SLOW/NOT COMPLETE ERROR 


TCHKOP CHECK FOR ANY ERRORS 
ERROR 4 ; OR S,6,7 ;REPORT ALL ERRORS 


JSR R4, LRLOAD Leer 

WROATA SHRI .. 

-400 

OBUFF ; BUFF AOD 

BYTE 8 ; SECTOR 

BYT 3 K 

312 ; CYLINDER 

TLOADRK 

TWAT32 that FO FOR RON TERRUP 

ERROR 2 ;TO SLOW/NOT EOMPLETE ERROR 
pean ;CHECK OPERATION WITH EXPECTED ERR 
40 ;HVRC ERR EXPECTED 


0 
ERROR 4 ; OR S,6,7 ;REPORT ALL DISCREPENCIES 


: ea a eee 
; ATES T 25 OPERATION INCOMPLETE 
1 i FORMAT CYLINDER, 3 2 TRACK 2 ot bod Fee 21 HAS THE 
i WRONG FORMAT. A WRITE D O CYLINER 0, 
; TRACK 0, SECTOR 3 
; + REKKKEKKSRKKRRERARAARRERARRRERKRRRARERRERRRERRRERRERRERARAARAAHKREE 
teres: vil Ss TERATIONS 

MOV Oa’ REEMT Hae APE T SWITCH 

TSSINIT - LEAR YSTEM 

ERROR 3 + SAD INIT ERROR 

ISR R4, LRLOAD #1080 “L” REGS 

WRHEAD WRITE HEADER 

-102 s HORD COUNT FOR 26 SECT MODE 

OBUFF 

“BYTE O : SECTOR 

.BYTE 0O sT 

312 *CYLINDER 

JSR R4, GENCOM 

600 ;BUILD HEADERS-NO BSE ERRORS 

BIS #B1T9,OBUFF+200 ;CHANGE FORMAT IN SECTOR 25 

BIS #B1T3;OBUFF+202 CORRECT THE VRC 

TLOADRK ;LOAD RK REGS 

TWATLIi2 :WAIT FOR INTERR 

2 :TO SLOW/NOT ERAP ETE 


SEQ 0086 


07 


CZREKEO RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 87 SEQ 0087 
CZR6KE.P11 10-JAN-78 09:35 Tes OPERATION INCOMPLETE 
75 011776 104421 TCHKOP ;CHECK FOR ANY ERRORS 

Bre Bt 3508 1B4004 ERROR 4 ; OR 5S,6,7 :REPORT ALL ERRORS 

45 004437 036252 JSR R4, LRLOAD ;LOAD “L” REGS 

4 i 135 WROATA :WRITE DATA 

4 1201 00 -400 :400 WORDS 

4 1201 2414 OBUFF > BUFF 

4 Be 12014 025 -BYTE 25 :SECTOR 2S 

1 22 909 “BYTE O : TRACK 5 
deed 12016 00031 312 :CYL 31 
1 104417 TLOADRK ;LOAD RK_REGS 

458 180s 1Bueg TWAT4HB :WAIT FOR INTERRUPT 

4 1 1 ERROR 2 :TO SLOW/NOT COMPLETE 

4530 012026 104422 TCHKWE ;CHECK OPERATION EXPECTED ERROR 
1532 qe o020 20 ;O0PI EXPECTED 

decu 12036 104004 ERROR REPORT ANY DISCREPENCIES 

4595 ; jdevverseraseactalaseusbaisasssitsotnunseenesnenaenseentxennaens 

437 j ATES OPI WITH HVRC ERROR 

4598 i FORMAT CYLINDER 312, TRACK 0 SUCH THAT A HEADER VRC 

333 i Sue 5 ae AND SECTOR 47 HAS THE MRONG FO FORMAT. 

ae03 i tee GnseCTO cTOR 17. OF THAT HAY BOTH OnSRST TaN TicSARCETE. 

4 x 

Pair ee KKKKKRAKKKKRRRARERRRRAAKEKERAAKKERSRARKERARKRRERAAAKKRRAAKKRHARRHKREE 

4605 012040 oop0004 tSt26: § 

4606 O12042 012737 oO00012 001262 MOV #10. ,STIMES ; ,D0 10. ITERATIONS 

4607 012050 012737 O00312 001676 MOV #312) REFMT :SET REFORMAT SWITCH 

seme ists Bas Pea SST PERER 

461 

4611 O1 004437 036252 JSR R4, LRLOAD ;LOAD “L” REGS 

ele 01 000127 WRHEAD sey Te HEADER 

461 o120 i? 676 -102 COUNT FOR 26 SECT MODE 

4614 01207 2414 OBUFF ?BUS ADDRESS 

PIE Bletre op ere 8 Teen 

uel? pisee ooosie 312 >CYLINDER 

4619 O121 004437 042636 ISR R4, GENCOM 

weed yest 000600 £00 ’ ;BUILD HEADER- NO BSE ERRORS 

4 121 27 72550 MOV wOBUEF +134 RO T ADDRESS 2ND WORD HDR 17(8) 

ue2 SETHE: pa5708  BaibcD BIS #B1T9, (RO)4 i GET T FORMAT 28 SECT PER TRACK 

4624 tel 052720 001000 BIS uBITS, (RO)+ :SET VRC BIT 

4625 Olelee 09 000004 ADD ; BUMP TO HVRC WORD HDR 20(8) 

46 o1 186 32710 O00001 BIT satto, (RO) :TEST BIT O 

4627 Olel 1403 BEQ 1$ : RESET-SKIP 

4628 012134 042710 oo0001 BIC #BITO, (RO) :CLEAR BIT 

4629 012140 oo00402 BR $ 

4630 Ol2142 052710 oo0001 1S: BIS #BITO, (RO) ;SET BIT 


arm 


CZR6KEO RK& FC 
CZRGKE.P11 
| dee lel 
ee: 
ueae OleiSe 
46. 12154 
ee gists 
ue lel 
ieee piste 
464 1 1$8 
464 12170 
464 15125 
4644 Olel7 
4645 012174 
over 
46 B1s 
we leede 
4651 012204 
46 Eat 
46 Oleel 
4654 Oleele 
4655 Oleel4 
4656 
46S7 
4658 
4659 
4660 
4661 
4662 
4663 
4664 
4665 012216 
were Ole2e0 
4667 Oleeeb 
4669 O12 
4670 b1s8%e 
4671 
4672 012240 
4673 Oleed4 
4674 Ol 
4675 O01 
4676 Oleese 
4677 Bis 
4678 OleesS4 
4679 
4680 012256 
eae Oleebe 
4683 012264 
4684 B1S570 
4685 Ol2e2e74 
4686 012276 
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OPI WITH HVRC ERROR = 
;FORCE OPI AND HVRC ERROR 
2s: TLOADRK ;LOAD RK REGS 
TWAT112 ;WAIT FOR INTERRUPT 
ERROR 2 ;T0 SLOW/NOT COMPLETE ERROR 
TCHKOP ;CHECK FOR ANY ERRORS 
ERROR 4; OR S,6,7 ;YES-REPORT ALL ERRORS 
JSR R4, LRLOAD ;LOAD_“L” REGS 
WRDAT ;WRITE DATA 
-400 ;400 WORDS 
OBUFF ;BUFF ADDRESS 
-BYT 17 s SECT 17 
.BYT ; TRACK O 
312 elena 312 
TLOADRK ito REGS 
TWATYS WAI Fos INTERRUPT 
ERROR :T0 SLOW/NOT COMPLETE 
' aa ;CHECK WITH EXPECTED ERROR 
60 ;HVRC ERR & OPI EXPECTED 


jATEST 
Se FORMAT CYLINDER wat 


END oF” THE OPERA 


+$127 
MOV #10. ,STIMES 
MOV #312) REFM 
TSSINIT 
ERROR 3 
JSR R4, LRLOAD 
WRHEAD 
-102 
OBUFF 
“BYTE O 
“BYTE O 
31e 
JSR R4, GENCOM 
600 
MOV SOBUFF +144, RO 
MOV #BIT1,R! 
BIT R1,(P 
BEQ 1$ 


RR 
jHereatenneted in hibiveraseiseseresr rescence 
-ADDRESSED SECTOR 


* TRACK O SUCH THAT SECTOR 20 HAS AN HVRC 
3% rnOe tees” DATA OF 400 WORDS TO syle 3l2, TRACK O, 
H el. RAKE SURE HVRC IS NOT SET AT THE 


* 
ee 


i épe APE oaMAT Sit TCH 


{BAD INTT ERROR 


LOAD “L” REGISTERS 
rity COUNT F FOR 26 SECTOR MODE 
BUFF ADD 
EO ok 
; TRACK 
; CYLINDER 


;BUILD HEADERS-NO BSE ERRORS 
;ADDRESS OF HEAD 20 HVRC WORD 


jBIT 1 Soren tay 
; TEST BIT 1 SET 
; RESET-SKIP 


orm 
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2h ae Bt 


1698 oie 1a? 
dees BIBS iBhaah 
4 421 
See BIBLE 18368 
4698 piesee potas 036252 
Dee BIBS bes 
4701 Ol 72414 
mia | 012332 
47 Bis 06031 
ee Giese tee 
1709 B1ssue 104002 
470 12344 
3 BIB 1Bt864 
4711 
471e 
4713 
4714 
4715 
471 
471 
4718 
4719 
4720 
4721 
ue 
47e4 012350 O00004 
47eS Ole3Se 012737 oo00012 
mie 015368 012737 000312 
mies | 01e370 1 
47 12372 012737 
at BIBR8 TUEEEE BRR 
4733 012404 004437 O362S52 
4734 TENE 000127 
4735 Ole4le 177676 
47 012414 0724 
ae BS 8 
mth,» | Ole4e0 o0031e 
4741 Ole422 OO4437 042636 
4742 Ole4e6 001200 
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10-JAN-78 09:57 PAGE 89 
RC IGNORE ON NON-ADDRESSED SECTOR 


Bic ~~ Sk CLEAR BIT 1 


SEQ 0089 


1$: BIS Ri, (RO) BIT 1 

2s: TLOADRK m 
THAT I Le than EER INTERRUPT 
ERRO 2 OW/NOT COMPLETE 
TCHKOP onc FOR ANY ERROR 
ERROR 4; OR S,6,7 ;REPORT ALL ERRORS 
JSR = R4, LRLOAD sLOAD Os REGISTER 
-400 :HORD cBUNT 
OBUFF ; BUF P fbb 
.BYT 21 ; SECTOR 
BYT 0 : 
312 #CYL NOER 
TLOADRK ;LOAD RK 
TWAT32 :WAIT FoR INTERRUPT 
ERROR 2 >TO SLOW/ ETE ERROR 


Kee 4s on 5.6.7 REPORT ALL ERRORS 


-SBTTL ##DATA TRANSFER TESTS 
Te eS aaa si ae ee a > ee erent, 


j kTE WRITE AND READ ONE SECTOR 
i. ‘gree 312, ALL "inconnant a of TEED 313) TRACK 0 
1 i ZTH BAD SECTOR iN , KO. READ IT BACK 08 
3 oF crgr AGREES WITH Wita 15 Rack TTEN. 

= RHEE KERRKREREERRAEA RRR RKERARRRARARRRRRRRRERRRRRRRRRRRRAAKRKRRAKEE 
+&T30: SCOPE 


#10.,STIMES i009 40. JTERAT IONS 
Hey #312; REFMT REF ORMA Oe 
TSSINIT TEAR SUBSY ST M 
ERROR 3 ELE INIT ERROR 


SCCERR TRACK’ POINTER 


MOV #312, 7% 
$3 ‘ 


CLRB 
1$: JSR R4, LRLOAD LOAD “L” REG 
WRHEAD RT TE HEADER 
-102 WORD COUNT FOR 26 SECTOR MODE 
OBUFF ;BUFF ADDRESS 
-BYTE OQ ; SECTO! 
es: -BYTE 0 ; TRACK 
7$: 312 ; CYLINDER 


JSR R4, GENCOM 
1200 ;BUILD HDRS-INCLUDE BAD SECTORS 


c-- 


ZR6KE .P11 


$3 
4 012430 
ie Siete 
ae 1 
woe bi 5046 
GL gia 
4753 O1e45e 
4754 Ol 

oe 
oe 

4758 012470 
4759 012474 
4760 Ole500 
4761 

4 1 

47 1 
4764 OleSl 
476S OleSle 
oe lee 
wee bls 
4769 

4770 012520 
477 

477. 

477. 1 
4774 Bt 
uore b1se4 
oe cise 
ve 
4781 012550 
47 12554 
47) 1 

4 1 
478S OleSbe 
47 Bt 

47 1eS64 
47 

SP Waid 
uy alee 
4792 

ve ater 
ee 

4796 012600 
4797 012604 
4798 012606 
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tot abe 


000313 O1e420 
012417 oo0000e 
012417 


042636 


012536 001110 


036252 


042636 


MACY11 30A( 1052) 
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3$: 


09:57 PAGE 90 


LOAD 
3L 
ae 1 FoR nT TERRUPT ERROR 


;CHECK_FOR ANY ERRORS 
;REPORT ALL ERRORS 


i VERT Tf DONE 313 TK O 
:DID WE JUST FORMAT TRACK 2 


; YES-SKIP 

;BUMP TO NEXT TRACK 
;GO FORMAT NEXT TRACK 
;CLEAR TRACK POINTER 


‘UMP CYL TO 313 
:GO FORMAT 313 TK O 


REGS 
a ao "tata COUNT 
SECTOR te. is 
t CYLINDER 312 


SBHBLD qa PATTERN 1 
Fe FOR COGAL LOOP 


IT FOR INTERRUPT 

We SLOW/NOT COMPLETE ERROR 
F RRORS 

i CESK ar eR ERRORS 
;LOAD okra REGS 
S50? ABR 
:BUEF ROD 02 
; TRACK 
om: 31 
iL 
a IT F NTERRUPT 
;TO SLOW £08, dt EON LETE 
;CHECK_FOR ANY ERRORS 
;REPORT ALL ERRORS 


;GO COMPARE ere TO PATTERN 1 


;400 WORDS LON 


10-JAN-78 

WRITE AND READ ONE SECTOR 
TLOADRK 

TWATLI2 

ERROR 2 

TCHKOP 

ERROR 4; OR S,6,7 
MP 8313, ,7$ 
EQ 

CMPB 2$, #2 
PAICB Hf 

BR 

CLRB 2s 

INC 7$ 

BR 1s 

J R4, LRLOAD 
WRGaTA ? 

-4 
OBUFF 

-BYTE 12 

“BYTE O 
312 

JSR R4, GENCOM 
400 
MOV #4, SLPERR 
TLOADR 
TWATIi2 
ERROR 2 
TCHK 
oR 4 ; OR 5S,6,7 
R4, LRLOAD 

RD ATA 

IBUFF 

-BYTE 12 

.BYTE O 
3le 
TLOADRK 
TAT 3e 
ERRO 2 
TCHKOP 
ERROR 4; OR 5.6,7 
JSR R4, GENCOM 
100001 
400 


SEQ 0090 


ee  eeEeEeeEeEEeEeEeEeEeEeEeEeeeeeeeeeeeeeeeee eee 
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CZR6KE.P11 10-JAN-78 09:35 T30 WRITE AND READ ECTOR Toe 

4799 012619 o90H13 BR 6$ ;GO0D RETURN-NO DATA ERRORS 

4 l26i2 10401 ERROR 15 :ERROR RETURN 

4 12614 001634 MOV ERRLNT , RO ;GET ERROR LIMIT 

4 1 S$: DEC RA :DEC_LIMIT 

4 1 BEQ of *EXIT IF O 

4805S O1 437 042636 JSR RY, GENCOM 

4 1 040000 ; CONTI COMPARE 

deo? 1 Babe BR 6$ *EXIT aes MORE ERRORS 

48 12634 O4016 ERROR a3 jELSE REPORT MISCOMPARE 

gio 012640 005037 001676 6S: CLR FMT ;CLEAR REFORMAT SWITCH 

4812 sf KKKKAAARKARERKAKRAEARAAKLEASAARARASAARRRARARRERKERKKRAAKKKRKRHAKRES 

4gi3 j ATEST 31 WRITE DATA WITH BUS ADDRESS INCREMENT INHIBIT 

4815 :% SUE A WRITE DATA OF ONE SECTOR TO CYLINDER 312 

BLE +x taehe 2, BAF oR l2 WITH FRIST? BUS : 

481 : ADDRESS INCREMENT. READ DATA BACK TO MAKE SURE 

ugig i EVERY BORD IS THE SAME AND CORRECT. 

eet 12644 ooo004 re“! _eaanasasiamaaaa esammemueaananamemuenanemeaaiane: 

ses biSeue 012737 oo00012 o01262 * MOV #10. ,STIMES ;;D0 10. ITERATIONS 

4 012654 104416 TSSINIT sCLEAR SUBSYSTEM 

wees 012656 104003 ERROR 3 :BAD INIT ERROR 

GBS? 012660 004437 036252 JSR R4Y, LRLOAD sLOAD “L™ REGS 

ee3 Biseee 77408 ee er jf 

48 pises 072414 OBUFF *OBUFF IS BUFF ADDRESS 

wee flere obi ee i? HFeace'y 

48 15b55 00031 312 ;CYLINDER 312 

483S 012676 052737 O00020 o01610 BIS #BAI,L.CS2 ;SET INCREMENT INHIBIT 

ge Gleson Gosc3 Geese eR RS, CENCOR” © BUILD BAT TERM 

483 biseis 000400 400 7400 WORDS 

012714 104417 TLOADRK sLOAD RK REG 

4841 012716 1044 TWAT96 :WAIT FOR INTERRUPT 

4 4 012720 104002 ERROR 2 ?TO SLOW/NOT COMPLETE ERROR 

4844 012722 104421 TCHKOP :CHECK OPERATION FOR ANY ERRORS 

ueus 012724 104004 ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 

mal 012726 904437 036252 JSR R4, LRLOAD ;LOAD au" REGS 

4849 012734 177400 -400 +=400 WORDS 

4850 016736 70414 IBUFF :IBUFF IS BUFF ADDRESS 

uee> BL SeuG SAF ‘BvrE ie tPRReR 1S 

4853 Ole742 o00312 3le :CYLINDER 312 


Re 


gneneo RK& FCTNL CTR 


ooo 
_ 


phe 


= 


SHORBURSTSOOS SY ASH SRB 4 


OOOOO0O00000000 
ee ee 


Oo 
8 
Oo 


Bus RE Hite 


QO000000 020 oO000 
See ee ee Be Re ee 


WWWWW 
ba bee pe be 
uree 
ws 
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072416 
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042636 
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MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 92 SEQ 0092 
T31 WRITE DATA WITH ADDRESS INCREMENT INHIBIT 
MOV #377,RO ;SET COUNT TO SET OBUFF TO BE 
MOV sOBUFF +2 ?ALL THE FIRST WORD OF PATTERN 
MOV #OBUFF , es 
1S: Moy £R3), (RL)+ ;MOV THE WORD 
BNE 1$ ;LOOP UNTIL ALL WORDS SET 
TLOADRK bay Fe REGS 
TWAT 32 ‘WAI FOR INTERRUPT 
ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
TCHKOP -CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R S, 6, 7, 10 ;REPORT ALL ERRORS 
SR R4, GENCOM ;COMPARE THE DATA 
100000 
400 
BR 2s 
ERROR 15 
MOV ERRLMT, RO T ERROR LIMIT 
64S: DEC RO IDECRERENT COUNT 
BEQ 65$ ZERO EXIT 
JSR R4, GENCOM :CONTINUE DATA COMPARE 
BR 65S NO MORE ERRORS - EXIT 
ERROR 16 ; REPORT NEXT ERROR 
65S: 
At tren rare ate re ree eee 
:&TEST 32 WRITE DATA ADDRESS GREATER THAN 32K 
:# ISSUE A WRITE DATA OF WORDS WITH ADDRESS = 177770. 
i MAKE SURE C CT DATA IS ON DISK. 
1 a NOTE: THIS TEST IS ONLY EXECUTED IF MORE THAN 32K 
3 OF MEMORY IS PRESENT 
= LEGER KKERKRRERAAKARARRRAARRAERARERRRRRRRRRAARRRRA RRR RRARKARERKRE 
+6132: SCOPE 
MOV #10. ,STIMES ; D0 10. ITERATIONS 
CMPB SMAMS1, #1 s teat >32K MEM 
BGE 2s YES- Tote 
BIT #MEMSZB, OPTFLG TEST IF REPORT ALREADY MADE 
BNE 1S :YES -SKIP 
TYPE , OPRO11 rabore se 5 SEK" MEMORY DATA TRANSFER WITH 
TYPE RO12 
BIS bMEMS28, OPTFLG LAG 
ve TYPE OPROI 15’ iB¥PasseD™ 
es: MOV #5$, SLPERR :SET LOCAL LOOP ON ERROR ADDRESS 


COS 
—EFREAESIM® FCTRL ETP heP$BSas "PCY! 39851052) Ae BNGZE BREE RORFEA Hen x SEQ 0093 


4911 013122 104416 TSSINIT ;CLEAR SUBSYSTEM 
ai 013124 104003 ERROR 3 ;BAD INIT ae OR 


B13188 BGgi34 O*FSP uRbata NTE RLOAD fhRite bar 


| 
| ual? Biaiae 199770 179970 SS IN 32K -10 3YTES 
491 613136 01 -BYTE 16 at 
use0 OL 3142 g003 i Sidhe :CYLINDE 
4 , o131¥8 or — 10930 eee a MANAGEMENT FOR DEST 
aes SEY Habe i pclae Rel 7 
4 1 00 400 
4 
wey SSS ley Tages ge? BieGte 
1958 Bt 3te8 1Di das ERR 2 iG 6 aL bn FoR at EARP ETE ERROR 
4930 013164 104421 TCHKOP + CHECK OPERATION FO FOR ANY ERRORS 
dase 13196 tpuate grog 4 50R S, 6, 7, 10 .REPOBT Aik ERROR To ss 
4933 
| 33 513178 i 042636 J R. R4, GENCOM ;CLEAR IBUFF TO 1’S. 
4336 1 1 1000 
sass BISBRE osu cease BBfarn MniRLORD i RaBa aL” RECS 
494 1 ig 1 -40 400 WORDS 
4941 013212 670414 IBUFF tT IBUFF IS BUFF ADDRESS 
494 13214 O16 -BYT 16 CECT OR 16 
qaqa 13518 oogsie so . id R 
ua ; i i 4p TL Baek Lone OR INTERRUPT 
uae B 13555 1Bud5e ERROR 2 ?TO SL SLOWNOT EORPLETE ERROR 
u4e 13555 iBac54 TCHKOP + ® j SHECK RATI ION NLFOR ANY ERRORS 
qace 135 7 042636 SR RY, bohicBA e 
4951 13236 110000 119900 : TRANAGENENT FOR DESTINATION 
4 1 4 4 
ages HES ante _ i bee FIRST MISCOMPARE 
4 O13es0 913709 001634 MOV ERRLMT, RO ts 
4 1 64S: DEC 0 MENT Bat 
dees 613528 Soause ee sR? NUE DATA 
4 4 042636 4, GENCOM 6N COMPARE 
4960 013264 00 50000 
496 1 02 R 65S om MORE ERRORS - EXIT 
4 1 104016 ERROR 16 ?REPORT NEXT ERROR 
496, 13272 000770 BR 64S *LOOP 
4964 013274 65S: 
4965 
4966 013274 4S: 
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10-JAN-78 09:S7 PAGE 94 
READ DATA ADDRESS GREATER THAN 32K 


3-36-03 eS SE SE Se A a 0 a 0 a a a a 
T 33 READ DATA ADDRE THAN 32K 


ihr SS GREATER 
:# ISSUE 6 READ WORDS WITH ADDRESS = 177770. 
i CHECK MEMORY OR A OORRES TRANSFER. 
; 
: NOTE: 1s Y CUTED IF MORE THAN 32K 
iP NOTE: QBRGREAY HE PubSERTE 
ee ee 
001262 k #10. ,STIMES 3:00 10. ITERATIONS 
000001 CMPB S$MAMS1, #1 s He IF >32K MEMORY 
BGE 2s S-SKIP 
1S: BR S$ EXIT 
001110 2: MOV #3$, SLPERR ;SET LOCAL ERROR LOOP 
38: 


TSSINIT 
ERROR 


JSR R4¥, LRLOAD 
vRBATA . 


;CLEAR SUBSYSTEM 
; BAD INIT ERROR 
“L” REGS 


-400 
OBUFF po a "BUFF ADDRESS 
Bev Teneo 

* BYT 

312 R 312 

ISR R4, GENCOM GENERATE DATA IN OBUFF 

ll ;PATTERN 1 

TLOADRK 

TWATS6 het ae FOR SFeRRUPT 

ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
ceoR’ 4 R 6 , Lor REpOR RAL CeRRORS a 
SR a4, CRCORD LOAD ” REG 

RDDATA READ DATA 

177770 iabeagas: Sex BOUNDARY 

Bre Teror'g 

312 *CYL 31 

res bBOe Eat 

ERROR ERRPLET TE ERROR 
TCHKOP ae ete ig Peek OPERATION FOR ANY ERRORS 
SR R4, GENCOM i Bere A fat 

120000 MEMORY MANAGEMENT WITH SOURCE 
1777 RELOCATION ARGUMENT 

400 :COMPARE 400 WORDS 


ceneie vy FCTNL CT a 
CZR6KE.P11 10-JAN-78 
5023 13432 13 
S024 1 08 
sie Bie Bats 

SO. 1 
5030 134S4 000402 
i ie 
5034 13462 
5035 

36 
ne 
5038 
5033 
5040 
S041 
es 
SO44 — 
es fines Wee 
Bie fee Ress 
epee 5} 1 1011 
S 013512 104401 
S 1 18 1 401 
Be Bee jes) 
S 0135 000467 
epee 013836 012737 
5060 13544 
5061 13544 104416 
S062 13546 104003 
5063 Bi 38 437 
S064 1 4 10011 
5065 0135 003777 
ae] 0135S 000400 
2oe8 Ot a 004437 
50 1 177400 
a Hen ia 
5073 013575 000 
Fite 013576 o00312 
5076 013600 4417 
5077 013602 ratte 
5078 013604 104002 


000012 
001326 
oooo00e 
0S2135 
0S2314 
000002 


013S44 
042636 


036252 


EOS 
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001262 
oo000e 


001664 


001664 


001110 


READ DATA ADDRESS GREATER THAN 32K 


BR 
ERROR 1 POR RST M Sa onPARE 
MOV Feeant,r0 ia Terr, “at 
64S: DEC MENT pot 
BEQ 65S DEC RO - EXIT 
JSR R4, GENCOM :CONTINUE DATA COMPARE 
BR 65S ;NO MORE ERROR - EXIT 
ERROR 16 epg XT ERROR 
64S LOOP 
635: 
; See re a eee ene ITE DATA AOORESS GREATER THANK 
; ATES WRITE DATA ADDRESS GREATER THAN 64K 
x ISSUE A WRITE DATA OF 400 WORDS WITH ADDRESS = 377770. 
i MAKE SURE CORRECT DATA IS ON DISK. 
: NOTE: THIS TE y IS ONLY EXECUTED IF MORE THAN 64K 
:# OF MEMORY IS PRESENT 
ig 1ygre>geangeeneuennenenscssenesnssnsmnsnussonsesnonnnnansannes 
MOV #10. ,STIMES 3400 10. ITERATIONS 
CNPS SHAHSI , #e 5 CHECK iF >64K MEMORY 
6S: BIT #MEMSZB,OPTFLG ;TEST IF REPORT FLAG SET 
BNE 1S >NO-SKIP 
TYPE , OPRO11 FICIENT MEMORY-DATA XFER WITH 
TYPE *OPRO13 i ADDRESS 
TYPE "OPROIS i ByPRSSED™ 
BIS brensZB, OPTFLG ;SET FLAG 
1S: BR 
2s: MOV #3$, SLPERR ;SET LOCAL LOOP ON ERROR 
35: 
TSSINIT ;CLEAR SUBSYSTEM 
ERROR ?BAD INtT ER ROR 
ISR R4, GENCOM : GENERA TA, PATTERN 11 
10011 ;MEM MENT ON DESTINATION 
3777 ?RELOCATION ARGUMENT 
400 ;400 
JSR R4Y, LRLOAD ;LOAD “L™ REGS 
WRDATA! BAL6 jHRITE DAT DATA AND SET BAIS 
177770 7A GROSS BMK BOUNDARY 
-BYTE 20 i SECTO 
“BYTE O * TRACK O 
312 oe 312 
TLOADRK ;LOAD Ri REGS 
TWAT96 : WAIT FOR INTERRUPT 
ERROR 2 :TQ SLOW/NOT COMPLETE ERROR 


SEQ 0095 


FOS 
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CZR6KE.P11 10-JAN-78 09:35 T34 WRITE DATA ADDRESS GREATER THAN 64K 
1365 jouas4 EER’ a sons, s. 7, ISERRERTATETHRgRSM™Y EROS 
: 437 042636 JSR R4,GENCOM CLEAR IBUFF TO 1’S 
1 001000 1000 
86 O1 437 036252 JSR R4, LRLOAD ;LOAD_“L” REGS 
83 Ol ish RDDATA ;RODATA 
Bo Ot rei BUFF on tae ADDRESS 
: 1 BYTE TRACK 
: 1 3 31g :C 
: 1 10441 LOADRK +L 
: 13642 104424 TWAT32 HAT FOR INTERRUPT 
See 13644 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
o3e38 104421 TCHKOP at ko jSHECK0F Sata Eanes" ERRORS 
2e8 136 437 042636 ISR R4,GENCOM ” ” BubeK 
3101 O13 19000 119900 erie ta WITH DESTINATION 
1 13650 003777 400 
5103 013664 000413 BR S$ OMPARES-SKIP 
2108 51 3eee 104015 ERROR 15 snp tec oea ERROR 
1 13670 013700 001634 MOV ERRLMT, RO 
2188 13859 300 64S: DEC RO : iBECRERENT LEAT 
3108 13676 1406 BEQ 65S FF EROE “BX IT 
5103 013700 4 042636 JSR R4, GENCOM + AON TA COMPARE 
5111 013706 Baosbe BR 65S ;NO MORE ERRORS - EXIT 
5112 013710 1O4O16 ERROR 16 ‘REPORT NEXT ERROR 
S113 013712 00077 BR 64S >LOOP 
5114 013714 65S: 
511S 013714 S$ 
S116 i [AREA REHHHHMMNEEESHSNENNESSSAEAUNE NEN E UE EERE LEEK EEEEEENEEAAEE ED 
piiz ; ATES READ DATA ADDRESS GREATER THAN 64K 
5119 te ISSUE A READ DATA OF 400 WORDS WITH ADDRESS = 377770. 
2120 # CHECK MEMORY FOR CORRECT TRANSFER. 
Bice i NOTE: THIS TEST Is ONLY EXECUTED IF MORE THAN S4K 
5124 : ‘ 
eis 013714 oo0004 a ee ee eee 
Sie? 013716 012737 oO0012 oD1262 MOV #10. STINES ;;00 10. ITERATIONS 
5128 013724 123727 001326 o0000e CMPB mAMSI, ® j CHECK IF >64K MEMORY 
5129 013732 O02001 BGE : YES-SKIP 
2130 013734 o00462 1S: BR é$ ERTT 
b132 013736 012737 o00032 O01110 2s: MOV #32, SLPERR ;SET LOCAL LOOP ON ERROR 
5134 013744 3S: 


me 


1 


Ob bP br 


bh 


S Re) iipscnevae 


5 
o 


SRR BAER ISHS BE 


cmp plagnd ould aise oecd ol eed ol seed eed ed ee ed ed eM ed ed ed nd ed edt dE dd 
NN 
£ 


OOO000009 B80O000000 200 BO0000000 oO 


Oo 

- 

£ 

—- &§§00 
RB 


00000 
Owo 


C O RK& FCTNL CT 
ESREKE. Pll 10-JAN- 


14003 


DIAG 
8 09:35 


036eS2 


042636 


036252 


042636 


001634 


042636 


MACY11 3986 1082) 10-JAN-78 09:57 PAGE 9 
35 READ DATA ADDRESS GREATER THAN 64K 


64S: 


65S: 


TSStNtt 
E 
JSR " R4Y, LRLOAD 


rouxgr 


SR 
RODATA! BAL6 


TLOADRK 
TWA > 


SR a4, bohcBa & 
B SF 
ERROR 15 


MOV unt, 


$e RiSaencon 


RY iRtoab a 


‘GAB ini? ERROR 
sLORD. L” REGS 


WORDS 
ts 44 5 pated ADDRESS 


oO 

< 

:: 

_ 

303 
mp Tw 

W 

_ 
=m 


SL 
mec OER apoB. ANY ERRORS 
ig ae “L" RE ress 

:READ DATA AND SET BALE 


PACCR 4K BOUNDARY 
;FROM SEC On 21 


TAP 312 


MATT FOR NT 
;T0 Big, Fos a GOMPLETE ERROR 
CHECK SEERA ION BOR nNY ERRORS 


re 
MEM MANAGEMENT i? Me, SOURCE 
OCAT ARGUMENT 


'NO MI ARES-SKIP 
:REPORT FIRST ERROR 


i GET ERROR LIMIT 
0 c a Mel 
+ DNF INGE “DAY A" COMPARE 


;NO MORE ERRORS - EXIT 
iReper NEXT ERROR 


Fete Coeur re ureter urn tt a Wert ean 
WRITE DATA ADDRESS GREATER THAN 96K 


foe 


;* 
;* 
7% 


ISSUE A WRITE DATA OF 400 WORDS WITH ADDRESS = 


577770. 


MAKE SURE CORRECT DATA IS ON DISK. 


SEG 0097 


CZR6KEO RKE FCTNL CTRL DIAG 
CZR6K 


paca 
BIFRLGIO- Mm 


Sf ££ £LEELEECES ££ 


S240 


set 


SELES ECLCLIELCL£&S 


Sit £ 


BR Rey See oRS 


SRERSeR BO NS 


uy 
w 
< 


012737 


14008 
tte 


1774 
1777 


00131 
lel 
177400 


070414 


00031e 
To44e4 
104002 


104421 
104004 


-Pll 10-JAN-78 09:35 


052135 
052310 

4 
014164 


036252 


042636 


036252 


MACY11 30A( 1052) 
T36 


800603 


001664 


001664 


001110 


38 NOTE: 
}H 
.@ 
8136: 810. ,STIMES 
CMPB Shans) oe 
BGE 3$ 
1$: BI #MEMSZB, OPTFLG 
BNE 2s 
TYPE ,OPRO11 
TYPE ,OPRO14 
BIS bner28, OPTFLG 
2s: BR 
3S: MOV #4$, SLPERR 
bai TSSINIT 
ERROR 3 
us RY, LRLOAD 
DATA! BAL? 
177970 
- BYTE 22 
. YT 0 
312 
ISR R4, GENCOM 
10013 
577 
400 
TLOADRK 
TWATS6 
ERROR 2 
TCHKOP 
ERROR 4 ;ORS, 6, 7, 
gsr R4Y, LRLOAD 
DATA 
-400 
aE ae 
BYTE : 
312 
TLOADRK 
TWAT32 
ERROR 
TCHKOP 
ERROR 4 ;O0RS, 6, 7, 


10-JAN-78 09:57 PAGE 98 
WRITE DATA ADDRESS GREATER THAN 96K 


THIS TEST IS ONLY oe IF MORE THAN 96K 
OF MEMORY IS PRESENT 


ee eee ere ere 


; 10. ITERATIONS 
reo if > MEMORY 


TEST mii REPORT FLAG SET 

;NO-SKIP 

;" INSUFFICIENT MEMORY-DATA TRANSFET WITH 
;ADDRESS >96K BYPASSED” 

;SET REPORT FLAG 


;SET LOCAL LOOP ON ERROR 


IRB Init ERROR 
L080 bathe a AND BA17 
ACCROSS, 36K BOUNDARY 

bee 


EES a ey on. 


tious 


4g FOR NTNTERRY 
;TO SLOW/NOT ONPLETE ERROR 


“CHECK OPERATION FOR ANY ERRORS 
{0 ;REPORT ALL ERRORS 


; at REGS 

3-400 WORDS 

:IBUFF IS BUFF ADDRESS 
TOR 22 


:9 ACK O 
;CYLINDER 312 


iL K_ REG 
HATT FOR INTERR 
:T0 SLOW/NOT COMPLETE ERROR 


:CHECK OPERATION FOR ANY ERRORS 
{6 ;REPORT ALL ERRORS 


SEQ 0098 


ee — 


108 


JAN-78 09:57 PAGE 399 SEQ 0099 


cgneKeo RK6 FCTNL CTRL DIAG MACY 11 70s i658) ms 
CZR6K 35 36 E DATA ADDRESS GREATER THAN 96K 


Pil 10-JAN-78 O09: 


Bas 014262 004437 042636 ISR R4, GENCOM ;COMPARE DATA 
14 110000 :MEM MANAGEMENT WITH DESTINATION 
14 5777 ‘RELOCATION ARGUMENT 
14 4 :400 WORDS 
14274 i bE :NO_MISCOMPARES-BRANCH 
e622 14276 104015 ERROR 15 :REPORT 1ST ERROR 
14 700 001634 MOV ERRLMT, RO ;GET ERROR LIMIT 
14 64S: DEC RO i DEC MENT COUNT 
14 1406 BEQ 65$ FERS, EXIT 
1431 nak td 042636 ISR R4, GENCOM + OON INUE DATA COMPARE 
14314 50000 
acer Oi43e One ERROR fe TR OPORT NEXT ERRORS 
14322 384948 BR 64S ; LOOP 
3 014324 65S: 
S 014324 6S: 
eses $ i Seagesgucaessossncenoscsssetss a ian. 
26 jt T 37 READ DATA ADDRESS GREATER THAN 96K 
Bees + ISSUE A TA OF 400 WORDS WITH ADDRESS = S77770. 
20 i CHECK RENORY OR CORRECT TRANSFER. 
5878 :% NOTE: THIS TEST T 1S ONL ONLY EXECUTED IF MORE THAN 96K 
2554 iN Ze ae Teeny 
S275 4 = REGS KRKRRE RARER RR RRR RRRRR RE KR KERR RRRRERRARRRRARRRRRRKAKRKRRKKKAE 
5 36 o143e4 p9004 +8137: SCOPE 
14326 012737 oo0012 001262 MOV #10. ,.STIMES ;;D0 10, pI TERATIONS 
78 014334 123727 001326 oO00003 CMPB $MAMS1, #3 > CHECK >9$6K MEMORY 
5279 014342 O02001 BGE 35 : YES-SK Kip 
peed 014344 o0046e2 2s: BR 6S 
Bebe 014346 012737 014354 001110 3S: MOV #4, SLPERR ;SET LOCAL LOOP ON ERROR 
5284 014354 4$: 
528s O14 54 104416 TSSINIT ;CLEAR SUBSYSTEM 
Beeb 14356 104003 ERROR 3 :BAD INIT ERROR 
es 14 004437 036252 JSR R4Y, LRLOAD sLOAD “L” REGS 
2589 Bt a3e4 WRDATA ; WROATA 
2630 tH i7z4oo -400 -400 WORDS 
91 O14 72414 OBUFF *OBUFF IS BUFF ADDRESS 
5292 01437 00s -BYTE 5 ;SECTOR 5 
5293 014373 000 “BYTE O ; TRACK O 
5294 014374 oo031e 312 ;CYLINDER 312 
5295 014376 004437 o42636 ISR R4, GENCOM ‘GENERATE DATA 
5296 O1440e 000014 14 ;PATTERN 14 
2e32 14404 000400 400 ?400 WORDS 
5299 O14406 104417 TLOADRK sLOAD RK REGS 
5300 O144i0 104430 TWAT96 WAIT FOR INTERRUPT 
3301 144le 104002 ERROR 2 40 SLOW/NOT COMPLETE ERROR 


08 


CZR6KEO RK& FCTNL CTRL DIAG MACYL1 30A(10S2) 10-JAN-78 09:57 PAGE 100 SEQ 0100 
CZR6KE.P11 10-JAN-78 09:35 137 READ DATA ADDRESS GREATER THAN 96K 
3 O14414 104421 TCHKOP -CHECK OPERATION FOR ANY ERRORS 
144 ERROR , io; jREPORT afk ERRORS 
144 437 036252 ISR R4, CRLOAD ” 1RO68 Om REGS 
144 1 RDDATA! BAL? DATA WITH BAI7 SET 
144, 1 7300 400 
144 17 177770 ? ACCROSS K BOUNDARY 
309 0144 -BYTE 5S FROM SECTOR & 
310 O144 000 “BYTE O 9 
12 144 000312 312 ‘CYL 31 
1 14436 104417 TLOADRK ;LOAD RK 
14 1449 104424 TWAT32 sHATT F NTERRUP 
ie i444e 104002 ERR > :TO FoR BRPLETE ERROR 
1 14444 104421 TCHKOP CHECK CK OPERATION FOR ANY ERRORS 
18 1 04004 ERROR 4 ;:ORS, 6, 7, i ERRORS 
531 144 437 042636 ISR R4, GENCOM 3C COhPaRE DAT 
14454 120 120000 REL MANAGEMENT WITH SOURCE 
3 144 7 5777 OcATION ARGUMENT 
355 i BOA 09 BRe 6$ :NO S-SKI 
pe 14464 nacht ERROR 15 NMI SCONPRRES-S<IP 
14466 013700 001634 MOV ERRLMT, RO T ERROR LIMIT 
2367 14472 005300 64S: DEC RO IDECRERENT COUNT 
14474 001406 BEG 65S EXIT 
5329 014476 004437 042636 JSR R4, GENCOM : CONT INUE DATA COMPARE 
53 14e06 060000 60000 
5331 O14 o00402 65S NO MORE ERRORS - EXIT 
233¢ O1 104016 ERROR 16 ;REPORT NEXT ERROR 
33 14510 000770 BR 64S LOOP 
5334 014512 65S: 
335 
336 O14S12 6S: 
S337 : pegugcggeonaneese aaa 
3338 j ATE PARTIAL SECTOR WRITE DATA 
5340 is ISSUE A WRIT aDATA OF 103 WORDS TO CYLINDER 312, 
paul i HEAD 3 SECT RO. MAKE SURE THE SECTOR WAS 
psie + tLLED CORRECTLY 
S344 oe KEKE RKERERRRKRRAAAKS RAR RERE RE RARARRRRRKRRRARKKKKKA LARK A RAKAER 
5345 014512 oo0004 tST40: SC 
5346 O1Me 4 012737 o00012 001262 MOV #10. ,STIMES ; peaks URLERAT IONS 
534 O14 2 104416 TSSINIT faLeE 
ese 14524 104003 ERROR 3 : BAD TNE? ERROR 
53 014 004437 036252 ISR R4, LRLOAD sb sg 
esol Bidess 000123 WRDATA tone bata 
3 014534 177675 -103 + WORD COUNT PARTIAL SECTOR 
5353 014536 072414 OBUFF ADDRESS 
B3 4 O14B4O 07 “BYTE 7 SECTOR 7 
355 014541 000 "BYTE O : TRACK O 
Babe 014542 000312 312 :CYLINDER 312 
5358 O14S44 004437 042636 ISR R4, GENCOM ;GENERATE DATA 


CZREKEO RK& FCTNL CTRL DIAG MACY11 30A8(1052) 10-JAN-78 09:57 PAGE 101 SEQ 0101 


CZR6KE.P11 10-JAN-78 09:35 T4O PARTIAL SECTOR WRITE DATA 
5359 014550 000003 3 ; PATTERN 3 
014552 000400 400 :400 WORDS 
14554 1 417 TLOADRK ;LOAD RK_REGS 
14 1044 TWATS6 :WAIT FOR INTERRUPT 
4 1 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
5 014562 104421 TCHKOP ;CHECK_FOR ANY ERROR 
014564 104004 ERROR 4; OR S,6,7 ?REPORT ALL ERROR 
3 014566 004437 036252 ISR R4Y, LRLOAD ;LOAD “L”™ REGS 
B37 14572 eh RDDATA ;READ DATA 
7 14574 12740 -400 :ONE FULL SECTOR 
537 14 76 70414 IBUFF : BUFF ADDRESS 
5374 O16 BYTE 7 jSECTOR 7 
5375 14601 red “BYTE OO TRACK O 
2376 0146 000312 312 ? CYLINDER 312 
378 O14604 004437 042636 ISR R4, GENCOM 
3 14619 002007 2007 ;CLEAR IBUFF TO ALL ONES 
2380 014612 000400 400 
cee Gisele ing ey L800 Beate 
84 ide28 1Bucae ERROR 2 :TO SLOW/ RTERRUPT 
5386 O14e2e 104421 TCHKOP ;CHECK FOR ANY ERRORS 
2387 1 104004 ERROR 4; OR S,6,7 ?REPORT ALL ERRORS 
389 O01 1270 72622 MOV #OBUFF+206,R1 CLEAR THE T 205 WORDS 
2383 artist Bisse acer MOV #275,RO. % OUTPUT BUF UFFER TO ZERO 
3331 O1 1$: CLR (R1)4 TQ VERIFY BERT TAL SECTOR 
146 DEC T FILLED THE SECTOR 
5393 O14e4 13 BNE 1$ 
5394 O14644 004437 o42636 JSR R4, GENCOM 
5395 0146 oo000 100000 ;COMPARE OBUFF 8 IBUFF. 
5336 146 0400 400 *ALL 400 WORD 
539 14654 000413 BR 3$ :NO_ERRORS-EXIT 
2338 014656 104015 ERROR 15 :REPORT FIRST COMPARE ERROR 
5400 0146 013700 001634 MOV ERRLMT, RO ;GET ERROR LIMIT 
B41 piaeed 300 2s: DEC RO '  DECREMENT it 
402 014666 001406 BEQ 3$ IF BERD EXtT 
5403 014670 004437 042636 JSR R4, GENCOM 
5404 014674 O40000 40000 ;CONTINUE COMPARE 
540s O14G76 o00402 $ ?NO MORE ERRORS-EXIT 
406 0147 104016 ERROR 16 *REPORT NEXT COMPARE ERROR 
Bidz 014702 000770 BR 2 > LOOP 
5409 014704 3S: 
S410 STTTTCTIT CTT TTT TT Te TTT tT ttt ttt ttt ttt tttttt ttt ttt 
euit ; ATEST 41 PARTIAL SECTOR READ DATA 
5413 1 WRITE CYLINDER 312, TRACK 0, SECTOR ZERO WITH A 
5414 * KNOWN CONFIGURATION. ISSUE’A READ DATA OF 


as 


rence 


5 tre RK6 FCTNL CTRL DIAG MACY11 30A(10S2)_ 10-JAN-78 09:57 PAGE 102 SEQ 0102 


R6KE.P11 10-JAN-78 09:35 T41 PARTIAL SECTOR READ DATA 
415 ;% 103 WORDS TO CYLINDER 312, TRACK O, SECTOR O. 

Buié i MAKE SURE ONLY 103 WORDS GET TRANSFERRED 

4 :# 

S415 014704 OE Ne ee eee eee 
evel 014706 012737 oo0012 o01262 m ae #10. ,STIMES -pO 10. TERATIONS 

buss Bidsie Tea 3 iELEAR ERROR 

S425 0147 004437 036252 ISR R4, LRLOAD ;LOAD_“L” REGS 

oy 147 0901 WRDATA 4 ATA 

4 147 1774 -400 ?-400 WORDS 

See 014730 072414 OBUFE u fas BUFF ADDRESS 
5450 B1u3s “BYTE 6 0 

431 0147 000312 3le :CYLINDER 312 

o4 Rar 004437 042636 JSR R4, GENCOM fou DATA 

é 15a9 400 74 60 LORDS 

436 O14746 104417 TLOADRK ;LOAD RK R 

5437 014750 104430 TWATS6 ‘WAIT FOR Inte RRUPT 
eu38 14752 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 

4 014754 104421 TCHKOP -CHECK OPERATION FOR ANY ERRORS 
M2 014756 104004 ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 

5443 014760 004437 036252 ISR R4, LRLOAD $1,080 “L” REGS 
5444 014764 O00121 RDDATA TA 

4 14756 77675 7402 103 WOR os 
euue glueze ot? yTE «17 fu ot eee 
5448 014773 000 “BYTE O 

44 14774 318 3 TRAC O” 312 

4 14 BoM 042636 5 R4, GENCOM 

451 Ol 2007 2007 ;CLEAR IBUFF 
Be 015004 0400 400 

454 Ol 1044 7 T K K 

m 5 a1 { i i424 Tun se 2 hai For Tn nTeeR TE ERROR 
Bue? 615018 1 FERROP i Oe K Hee RHE ANY ERRORS 
etee 15016 ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL E 

460 O1 12700 07262 MOV #OBUFF+206,RO  ;AFTER THE T WORDS OF 
Bue B1sbe 61 701 00027 ce MOV wooe pes Oe OUTPUT: BURF TO ALL ONES. 
WES 1 127; 177777 1S: MOV #-1, (RO)+ *THESE SHOULD ALL BE ONES IN 
cin Slate’ Bera Be AEM’ YtLeR Salt 10% wis. 
465 15040 437 042636 TSR R4, GENCOM :GO COMPARE IBUFF & OBUFF 
Bue? ptepde eet 400 ;ALL 400 WORDS 
5468 O1S5050 000413 BR 3$ :NO ERRORS-EXIT 
S469 015052 104015 ERROR 15 :REPORT FIRST COMPARE ERROR 


CZR&KEO RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 103 SEQ 0103 


CZR6KE.P11 10-JAN-78 09:35 T41 PARTIAL SECTOR READ DATA 
S471 S0S4 013700 001634 MOV ERRLMT, RO ;GET ERROR LIMI a 
nce 5060 ane 64S: DEC RO. tee ERO RO - EXIT 
me a 495 042636 ie 4, GENCOM COMPARE 


SO 
BR 6s$ MORE ERRORS - EXIT 
74 7 aaa 6 eae NEXT ERROR 
6B ! 4$ 


4 
RS sss 
481 015100 3$: 
eles ; L TEETH AS HH HHH HEMATITE DATA WITH NONLEXIGTENT MEMORY 
48 ; ATES WRITE DATA WITH NON-EXISTENT MEMORY 
5 te 1esue 8 A WRITE ITE pata OF 1 WORD USING ADDRESS 776000. 
e186 i* XISTENT MEMORY SETS. 
be | =}= +r REKRKERKKKRRERERKERERSREKEREAKKKRESAARERRAEREERRAARKRERA AERA HR ERE 
ary p15! 900004 tStue: § 
490 0151 12737 o00012 001262 MOV #10. ,STIMES 340010. ITERATIONS 
etal O15! 104416 TSSINIT éu YSTEM 
bi3¢ 0151 104003 ERROR 3 ? BAD INIT ERROR 
4 1 437 036252 AD 
Bugs Bt Boiees BAié+ea1?#AROAYE iBOte a Les, WITH WRITE DATA 
4 i ; WORD COUNT OF 1 
Bugz i 176000 176900 ‘ Ae pees PAGE BASE 
4 1 Bia - BYTE : Seer I 
Be00 1 000312 312 ?CYLINDER 312 
5502 104417 TLOADRK 


ERROR. 2 MGTL Fos gD ERUPT ETE ERROR 
;CHECK OPERATION WITH ERROR 


me 


0 

5508 NEMERR ps , shoes xI TENT {MEMORY ERROR 
203 biza7 054513 001450 MO geht ta’ EAION fone B ERROR: RESSA Ey 
i 136 061434 MOV #OPER42, DFO1OA arty SUPPORT MESSAGE 


ONTONOTENOFLD SVEVSs wows 


[ 

Geass 
Bxon 
Ts 

3 

r 

HO 

< 

wo 

4 

adr 

Rte 

Qe 

N+ 

'<xE 


Pe BUS BITS SET 


UN UNUUUU UT 
UU OUT 
bs be be ps he 
WOVOU CWT 


a ee bh bb 0 


OOOOOOOOOOO0O0000000000 


2504 1 001204 MOV bB, SREG11 ERROR REPORT 
at 012737 O00003 o01202 MOV #3, , SREG1O 
BeE0 bez737 176002 OO1S44 1S: a #176002, T.BA s TEST IF Sips ADDRESS LOW OKAY 
5Se 30 127 wags 001450 MOV ae EM10N Pai 7 UP Re 
Bes 127 i760 01202 MOV #176 be, SREGIO STO PER REPORT 
13737 1204 MOV 
5S. 01S2s2 104010 ERROR 


iy 


Se6 015254 005737 001542 es: TST T.WC ;TEST IF WORD COUNT CORRECT 


Lele) 


CZR6KEO RKG FCTNL CT 
CZR6KE.P11 


5s 


ts 
ia | 


015304 


#3 


Senae 


nun WU) 
ye Pte 4 Banas 
MENE Voor 


Pro wo 


10-JAN- 


ee 
Ainto 


oo001e 


036252 


176002 
OS446S 
176002 
001S44 
001S42 


OS4440 


MACY11 30A(10S2) 10-JAN-78 
T42 


001450 
001204 


001262 


001450 


09:57 PAGE 104 
WRITE DATA WITH NON-EXISTENT MEMORY 


BEQ 3$ ;YES - SKIP 
nov #EM10, EM1ON :SET UP MESSAGE 
MOV .WC, SREG11 
ERROR 10 
3S: 
3 esr da READ DATA WITH NON-EXISTENT MEMORY 
j ATE READ DATA WITH NON-EXISTENT MEMORY 
is ISSUE A READ DATA OF 1 WORD USING ADDRESS 776000. 
is MAKE SURE NON-EXISTENT MEMORY SETS. 
te Ee eae es 
Vv #10. ,STIMES -DO 10. ITERATIONS 
TSSINIT ial ySTen 
ERROR 3 
JSR R4, LRLOAD LOAD “L” REG 
BA16!BA17!RDDATA ; ‘ 17 HEH READ DATA 
176000 HOA Soin RODRESSe 10 PAGE BASE 
BYTE 13 : CTOR 13 
*BYT ;TRACK O 
;CYL 3le 
TLOADRK ;LOAD RK REGS 
TWATSE :WAIT FOR INTERRUP 
ERROR 2 *TO SLOW/NOT COMPLET 
TCHKWE >CHECK OPERATION WITH ERRORS 
0 
NEMERR ;NON-EXISTENT MEMORY ERROR 
ERROR 4; OR S,6,7 *REPORT ALL DISCREPANCIES 
MOV #£Mi1A, EMLON *SET MESSAGE 
MOV #OPER43,DFO10A ; SUPPORT MESSAGE 
MOVB T.CSi+i,R0 :GET UPPER CS1 
BIC #177774,R ; CLEAR UAWANTED ITs 
CMP #3, RO > TEST H BUS 16 & 17 SET 
ne AE 
MOV #3, $REG1O : VALUES FOR REPORT 
MOV RO, SREG11 
ERROR 10 
1S: CMP #176002, T.BA ;JEST IF BUS ADDRESS CORRECT 
BEQ 2s YES - SKIP 
MOV ngs EMLON iSET MESSAGE 
nov #176 be, SREGIO :SET VALUES FOR REPORT 
ERROR 
2s: TST T.WC ;TEST IF WORD COUNT CORRECT 
BEG —S - SKIP 
MOV #EM10,EM1ON SET MESSAGE 


SEQ 0104 


C. 


CZR&KEO RK& FCTNL CT 
CZR6KE.P11 


5S3 
S 


ve] 
W 


ratatatatatat 
BSBIRRL 


Be 


BeGnnene 


RRRRREE EE 
OD NOU £ WMO 


015474 
812200 

15S06 
015510 


CUT 
ui 
bebe 

Oo 


g mareees MB 


i 


ene Sass 


T= 
<= 


Ree eh hh bh bh hh bh 


0000 0200 000 O0000000 G000000 C000 


nina 
Sy 


Ri, DIAG 
10-JAN-78 09:35 


00$037 
013737 
104010 


012737 


001202 
001S4e 


000012 


002000 
1640S6 
042636 


000340 
015636 


100200 


MACY11 30A(10S2) 
T43 


001204 


001262 


001664 
001664 


001664 


001664 


072640 


10-JAN-78 _09:S7 PAGE 105 
READ DATA WITH NON-EXIS ENT MEMORY 


CLR SREG1O ;SET VALUES 
MOV T.WC, SREG11 
ERROR 10 


33: 
; a a ae Pee ce 
j ATE UNIBUS PARITY ERROR 
is INITIALIZE A MEMORY LOCATION WITH BAD 
;# SSUE A WRITE DATA OF 400 WORDS 
$i STARTING AT A LOCATION lle WORDS BEFORE 
1a THE LOCATION WITH BAD PARITY. MAKE SURE 
i THAT UNIBUS PARITY ERROR SETS. 
: # NOTE: THIS TEST IS ONLY EXECUTED IF 
1 a MEMORY PARITY OPTION EXISTS FOR 
i BUFFER. 
MA “EE venapreen sdily i Lremtpee casas 
“MOV #10. ,STIMES : TERATIONS 
TSSINIT APP Ck SysTen 
ERROR 3 :BAD INI 
BIT SEARPRE, OPTFLG TES st PARITY OPTION PRESENT 
BIT sMEMPYB, OPTFLG TEST I PARITY | OPTION REPORTED 
BNE OPRO10 BRTNT Grease. fe MESSAGE 
BIS bMEMPYB, OPTFLG REPORTED BIT 
ess: IMP 4§ Se IP TO EXIT 
1$: 
JSR R4, LRLOAD ;LOAD_“L” REGS 
WRDATA ; WROATA 
-400 400 WORDS 
OBUFF  OBUFF 1 BUFF ADDRESS 
-BYTE 10 ; SECTOR 10 
“BYTE O : TRACK 
31e *CYLINDER 312 
BIT #CP1170,OPTFLG TEST IF 11/70 
BNE 2 SKIP 
CLR JCSRPTR AR PARITY IE 
3S: ISR R4, GENCOM GENERATE. DATA 
7 : PATTERN 
400 400 EGROS 
MOV #PR7,-(SP) ;PUT PRIORITY 7 ON STACK 
MOV #10$)-(SP) ?PUT ADDRESS ON STACK 
RTI :SET PRI 
10S: 
MOV #100200,0BUFF+224 ;SET WORD IN BUFFER 


SEQ 0105 


CZR6KEO RK& FCTNL CR AS os 


CZRGKE.P11 


aed 


S641 


— 
oe 
We 


S644 


Bae Ay 
RPE RA SRARES HEC: 


— 
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001664 
164010 


168978 


163760 
001264 
001664 
177746 
163716 


163144 
177750 


13876 


001664 


163572 


001664 


163S4e 


cog 
uniBos PanfryeARor "MO 19° 


git ¢P1170, OPTFLG TEST IF E4h/70 
MOV #BIT2,aCSRPTR  ;:SET WRITE WRONG PARITY BIT 
MOV x F+224 T PARITY IN MEMORY 
Nov meet ToLERR CONTROL IT, SET IE BIT 
SS: MOV RKPRI, - (SP) PRIORITY 
nov #11$,- Set ees 
11S: nov CSRPTR, RY Set re CSR POINTER 
nov #INTSET,R1 ; T R Fon POINT R TO INTERRUPT FLAG 
MOV woPCHLR, SaMVEcA ;_RK611 AND Beat y ERROR 
ian 82S, SESCAPE ; SET Up ESCAPE FOR E 
pit ace1170, , OPTFLG TES Ir i770 
MOV #16, 177746 :SET TO DISABLE CACHE AND UNIBUS ERROR 
MOV #0, JKWLADD "TURN OFF CLOCK INTE TS 
MOV #0’ a$TKS :T OFF KEY 
MOV u1 ,177750 ;SET FOR E FORCE 
sos. tste CRI) ;LOOP TO WAIT FOR INTERRUPT OR ABORT 
ee MOET THE CODE WEEN THE TARS IS SET 
BAS 40S PE THT THIS C DEI. Cia BANGED. REMEMBER ati 
NOP BY TES Buss Have BN’ AN EVEN NUMBER OF 
BGT 40S 
43S: CLR (RY) ;CLEAR ERROR FORCE 
5 Me EE EE REE 
CLR 177746 
N C NTERRUPTS 
oe ROY riage ae KS i by fees KEYBoaRD I NTERRUPTS 
: R 46S ue may NOT 1 COMPLETE ERROR 
BIT s 1170, OPTFLG TES 
th BePPTBa, eat oS" remrry sono 
MOV #1 @CSRPTR sete BARTTY DETECT AGAIN 
BR 4a$ 
46S: BIT #CP1170,OPTFLG ;TEST IF 11/70 
ait JcSRPTR tfear ecn” 
LR BUFF +224 cL EAR 586 PARITY WORD 
MOV #1, JCSRPTR :SET UP PARITY DETECT AGAIN 
47$: ERROR 2 :REPORT TO SLOW ERROR 
: TCHKWE ;CHECK OPERATION WITH ERROR 
a) 


SEQ 0106 
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CZRGKE.P11 78 09:35 UNIBUS PARITY ERROR 
5695S 016140 000100 UPERR ;UNIBUS PARITY ERROR 
2636 016142 104004 ERROR 4; OR S,6,7 :REPORT ALL DISCREPANCIES 
4 CLR 
2egs Bteidd Bese oei4ay sou sr proion SEP MESSAGES FOR REPORT 
5700 016156 012737 OS446S 001450 MOV EO 
250) Dib 164 001544 072642 ie F+226 ; ;CHECK IF IF of? _TN RANGE 
5703 016174 bie? 072642 001202 MOV SOBUFF +226 srecid’> ;SET VALUES FOR REPORT 
27 916202 37 001544 001204 MOV T.BA, SREGIL 
7 16210 14010 ERROR 19 
e O01s2i2 o00413 BR 16S 
7 16214 37, 001544 072646 14S: MP T.BA, SOBUFF+232 ;CHECK IF_BA IN RANGE 
7 Ries 2 S{'os lee’ ae Ma 1B 
5710 016224 012737 072646 001202 MOV SOBUFF +232 srecia « ;SET VALUES 
71 016236 012737 OO01S44 001204 MOV #T.8A,SREGI1 
gi 1 104010 ERROR 10 
714 o1g24e 012737 OS4Y44O OO14SO 16S: MOV sEM10 EM1ON ;SET MESSAGE 
5715 Ol 27 001542 177513 CMP C, ’-26 ; CHECK IF WORD COUNT WITHIN RANGE 
5716 016256 1 BHIS YES - SKIP 
5717 016260 012732 177513 001202 MOV §-265 S$REG10 SET VALUES 
2718 16266 737 001542 001204 MOV WC, $REG11 
of 1 104010 ERROR 
S7e1 016276 023727 OO1S42 177515 20S: CMP I WC, #-263 ;STILL CHECKING IF WC IN RANGE 
7 e 1 01407 BLOS YES 5 SKIP 
7 1 127 A776h 101202 MOV F ee Reet is VALUES 
7 16314 013737 1542 001204 MOV EG1 
Bree 016322 104010 ERROR 
5727 016324 2s: 
7 1 7 64 CLR ;REV OO 
25 1380 163262 MOV Nie QRKVEC Rese? ENT. VECTORS FOR RKOS 
7a BIER BYSrv? BBEL6E 430 
Bf 1 01634 127 1 162574 MOV ,aSTKS ; INSURE KEYBOARD IS ENABLED 
3733 016350 us: 
5735 
2538 .SBTTL #**MULTIPLE SECTOR OPERATIONS 
$738 ; jSESeeREHHHHNHEMS SECTOR WRITE DATA (PRAT LD 
2533 j ATES TWO SECTOR WRITE DATA (PART 1) 
5741 ie ISS TA OF 10 TO CYLINDER 312, 
Bre 1 i TRA aK 8 “SECT 0. READ ATA HORDR K ONE SECTOR 
Ta i AT A TIME MAKE SURE IT IS CORRECT 
S74S = BEEK ERRGRE RRA RRR RARER RR SAKE RRRRRRERRRERRRRRRRRRRRAAARAREARKEE 
5746 016350 o00004 $étus: 
Tend 01635¢ 016737 000012 o0126e2 MOV 1! #10. ,STIMES hee ITERATIONS 
2548 Sieses tpudd Tea INT? ERROR 


039 


CZR6KEO RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 108 SEQ 0108 
CZR6KE.P11 10-JAN-78 09:35 THS TWO SECTOR WRITE DATA (PART 1) 
5 1 016364 004437 036252 ISR R4, LRLOAD ;LOAD “L” REGS 
? 163 123 WRDATA : WRDATA 
57 16372 17 -1000 :-1000 WORDS 
e7e4 16374 0672414 OBUFF ; QBUFF IS BUFF ADDRESS 
v4 1 28 gad “BYTE O :SECTOR O 
5756 O01 000 "BYTE O : TRACK O 
2757 016400 000312 312 :CYLINDER 312 
758 o16402 004437 042636 JSR R4, GENCOM ;GENERATE DATA 
7 16406 000015 15 :PATTERN 15 
276 016410 001000 1000 > 1000 WORDS 
57 O16412 104417 TLOADRK ;LOAD RK REGS 
5764 O16414 104430 TWAT96 :WAIT FOR INTERRUP 
765 016416 104002 ERROR 2 :TO SLOW/NOT EONPLETE ERROR 
5767 0164 104421 TCHKOP *CHECK OPERATION FOR ANY ERRORS 
B76 pi euse 1Od¢o4 ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
5770 o16424 437 042636 JSR R4, GENCOM ;CLEAR IBUFF 
5771 rte oe 2087 2007 :TO ALL 1’S 
377 016432 001000 1000 
5774 O16434 004437 036252 JSR R4, LRLOAD ;LOAD "L" REGS 
5775 O16440 O00121 RDDATA ; RODATA 
377 16442 177400 -400 400 WORDS 
358 16444 070414 IBUFF  IBUFF IS BUFF ADDRESS 
77 1B44e 000 -BYTE O j SECTOR 0 
77 1644 000 “BYTE 0 : TRACK O 
780 0164 000312 312 :CYLINDER 312 
57 O1645e 104417 TLOADRK ;LOAD RK REGS 
578 16454 104424 TWAT32 :WAIT FOR INTERRUP 
7e4 016456 104002 ERROR 2 :TO SLOW/NOT EONPLETE ERROR 
3786 O16460 104421 TCHKOP -CHECK OPERATION FOR ANY ERRORS 
2787 0164 104004 ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
5789 O16464 004437 036252 JSR R4, LRLOAD ;LOAD “L” REGS 
5790 016470 000121 RDDATA , ; RODAT TA 
579 b1647¢ 77400 -400 +=400 WORDS 
57 164749 071414 IBUFF +1000 - TBUFF+1000 IS BUFF ADDRESS 
793 O16476 001 .BYT 1 ctor | 
794 O164 000 *BYT 0 CK 
253° 016500 000312 312 DL 312 
5797 016502 104417 TLOADRK ;LOAD RK REG 
6798 016504 104424 TWAT32 hort FOR FATERRUPT 
2739 016506 104002 ERROR 2 TO SLOW/NOT COMPLETE ERROR 
5801 016510 104421 TCHKOP *CHECK OPERATION FOR ANY ERRORS 
802 0165i2 104004 ERROR 4 ;0RS. 6, 7, 10 ;REPORT ALL ERRORS 
5804 016514 004437 042636 JSR R4, GENCOM ;COMPARE DATA 
5805 016520 100000 109000 ; 
5806 O16S5e2 0601000 1000 :1000 WORDS 


3 art ae RK& FCTNL CTRL DIAG 


CZREKE .P 10-JAN-78 09:35 
S807 016524 
2508 16Se6 104015 

1 1 0016 
Bu tee Bee 
581 16 36 439 042636 

ia Slee ects 
ab us Be 

1 16 
5818 016554 
5819 

016554 


ae 


3 
S824 
$8eS 
8 
Be 
$830 ite 0000 
2e3h 16556 012737 OO00012 O012he 
016564 10441 
2333 016566 104 
5835 016570 004437 036252 
eo Bie 74 000123 
se BIS brat 
sie Sleets 
16603 
aos 016604 000312 
3 Ql 437 
2 Bieers 0016 — 
eeue 016614 001000 
7 Ql 104417 
Sec Bissas 1gttU 
9 Ol66ee 104002 
5851 016624 104421 
58Se Bieese 104004 
$8S3 
58s4 
S8ss 
ie 
5858 016630 OO4437 036252 
5859 016634 000121 
S860 016636 177400 
5861 O16640 070414 
S86e Olbb4e 0e3 


MACY11 30A(10S2) 
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64S: 


6S$: 
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TWO SECTOR WRITE DATA (PART i) 


BR 2s mysc 

ERROR .5 + REPOR IRST ERROR 
MOV LALIT AO GEC Ener LIMIT 

DEC 0 pot 

BEQ 65S TF ZERO - 

Jaco R4Y, GENCOM NUE DATA COMPARE 
BR 6S$ x MORE ERRORS - EXIT 
ERROR 16 ;REPORT NEXT ERROR 

BR 64S ; LOOP 


STTTTTTT TTT TTT T TTT TTT TITTLE 
T 46 TWO SECTOR WRITE DATA (PART 2) 


ISSUE A WRITE DATA OF 1000 WORDS TO CYLINDER 3lé, 
TRACK ry SECTOR 23. READ DATA BACK ONE SECTOR 

ATAT AND MAKE Suns * A MID-TRANSFER 
SEEK DID NOT TAKE PLACE 


= REGGE EEE RRE ELLA AA RA RAR ARAL ARRRARARAELERA REAR RL RAAERAARHERE 


+éTy 


;:;D0 10. ITERATIONS 
:CLEAR SUBSYSTEM 
:BAD INIT ERROR 


; LOAD * REGS 


MOV #10.,STIMES 
NIT 


wrDOO egy ny 

OBUFF $ Ace TO OO FF ADDRESS 
“BYTE 23 :SECTOR 23 

"BYTE O : TRACK O 

3le :CYLINDER 312 

ISR R4, GENCOM ;GENERATE DATA 

16 ‘PATTERN 16 

1000 1000 WORDS 

TLOADRK 

TWAT96 ina POR TN FERR 

ERROR 2 0 SLOW/NOT EONPLETE ERROR 
TCHKOP + CHECK RATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 


IF THE TRACK ADDRESS AT THE END OF OPERATION IS IN ERROR 
THE CONTROLLER DID A ge SEEK AS THOUGH IT 
WERE IN 24(8) SECTORS PER TRACK MODE. 


JSR R4, LRLOAD ;LOAD_“L” REGS 

RODATA ;RODATA 

-400 400 WORDS 

IBUFF : IBUFF IS BUFF ADDRESS 
-BYTE 23 :SECTOR 23 


SES 0109 
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09:57 PAGE 110 
TWO SECTOR WRITE DATA (PART 2) 


ZR6KE.P11 10-JAN-78 09: 
5863 016643 BYTE 0 ; TRACK O 
2864 16644 ooosie 312 :CYLINDER 312 
1 437 042636 ISR R4, GENCOM ;CLEAR IBUFF TO ALL ONES 
86 1 007 2007 
B68 16654 1000 1000 
86 
70 O166 104417 TLOADRK ;LOAD RK REGS 
7 i 1044 TWAT32 :WAIT FOR INTERRUPT 
2876 i 1 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
74 016664 104421 TCHK : CHECK RATION FOR ANY ERRORS 
25 Bieee? = iBud ERR 4 ;0RS, 6, 7, 16 eSEPORT ALL ERRORS 
5877 016670 004437 036252 JSR R4, LRLOAD ;LOAD “L” REGS 
5878 016674 9000121 RDDATA :RDDATA 
5879 016676 177400 -400 :-400 WORDS 
880 616700 071414 IBUFF +1000 - IBUFF+1000 IS BUFF ADDRESS 
881 0167 024 -BYTE 24 ;SECTOR 24 
5ese 016703 000 “BYTE O > TRACK O 
eee: 016704 o003ie 312 :CYLINDER 312 
167 104417 TLOADRK sLOAD RK REG 
B1Er18 1 a4 Theres a i BSR TATERRUPT 
5887 016712 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
269 016714 104421 TCHKOP “CHECK OPERATION FOR ANY ERRORS 
2830 016716 104004 ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
5892 016720 004437 042636 ISR R4, GENCOM ;COMPARE DATA 
5893 016724 100000 100000 ° : 
5894 016766 1000 1000 ; 1000 WORDS 
5895 0167 0413 BR 1S ?NO_ERRORS-SKIP 
2836 016732 104015 ERROR 15 :REPORT FIRST ERROR 
16734 700 001634 MOV RRLMT, RO :GET ERROR LIMIT 
2838 BLES a0 B4e586 64S: DEC ES . SEC MENT COUNT 
5900 016742 001406 BEQ 65S :IF ZERO - EXIT 
2301 G1 6744 Go4837 042636 JSR R4, GENCOM :CONTINUE DATA COMPARE 
5 16750 0000 40000 
5903 016752 o0040e2 BR 65S ;NO MORE ERRORS - EXIT 
5904 0616754 104016 ERROR 16 +REPORT NEXT ERROR 
5390S 0167 000770 BR 64S :LOOP 
5306 016760 65S: 
53907 016760 15: 
$3908 55 Ae SE AE ME HE HE ee JE HE ME HE HE HE SE HE HE EH HE HH HH EH HE EH HE HEHE HE 
2203 j ATEST 47 TWO SECTOR WRITE DATA (PART 3) 
5911 1a ISSUE A WRITE DATA OF 401 WORDS TO CYLINDER 312 
5912 +x TRACK 0, SECTOR 10. READ DATA BACK ONE SECTOR AT 
e313 i A TIME AND CHECK ZERO FILL OF SECOND SECTOR. 
$915 os REKKSARKAERAKRAAAAEA KARA KSRAL AAA KARA ARRAARARAARKRAAARA RHR AAHRHAKE 
5916 016760 oo0004 +$T47: SCO 
5917 016762 012737 oo0012 oD126e MOV #10. ,STIMES ;:DO 10. ITERATIONS 
5918 016770 104416 TSSINIT :CLEAR SUBSYSTEM 
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GE 11 


PA 
TWO SECTOR WRITE DATA (PART *3) 


ERROR 3 
JSR R4, LRLOAD 
TA 


JSR R4Y, GENCOM 
000 

TLOADRK 

TWATS6 

ERROR 2 


R4¥, LRLOAD 


wo 
< 
4 
m 
or 


TLOADRK 
TWAT32 
ERROR e2 


;BAD INIT ERROR 
;LOAD_“L” REGS 
eee A 


-401 WORDS 
OBUFF IS BUFF ADDRESS 


et 312 
iPayean. DATA 
31 BoRBs 


hay POR INTERRUPT 


SLOW/NOT GOMPLETE ERROR 


HECK poner al ton ahons ANY ERRORS 


OBUFF FOR EXPECTED oe ZEROS FROM ZERO FILL 


fe ee ail NS _AQORESS TO BE CLEARED 


; CLEAR WORD 

;DEC COUNT 

; LOOP UNTIL COUNT ZERO 
;CLEAR IBUFF TO ONES 


;LOAD ~ REGS 

pels 

il F ADDRESS 
CTOR T 


; TRACK o” 
;CYLINDER 312 


Looe Bx REGS 
‘1A FOR INTERRUP 
:TO SLOW/NOT COMPLETE ERROR 


CHECK OPERATION FOR. ANY ERRORS 
is: REPORT ALL ERRO 


" ;LobD 


:=400 WORDS 
IBUFF+1000 IS BUFF ADDRESS 
s SECTOR ii 
TRACK O 
CYLINDER 312 
;LOAD RK 
REEF ERR 


:WAIT FOR 
;TO SLOW/NOT COMPLETE ERROR 


SES O111 
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KE.Pil 

97S 0171 
2a5e Bi sias 
$977 017144 
5978 017146 
a Tle 017150 
5981 0171 
saee 17186 
5983 piety 
5984 0171 
5985 017166 
$986 017170 
5987 gist ce 
$988 017174 
5989 017176 
5930 

$991 017176 
593e 

5333 

5994 

$995 

53 

533 

5998 

$999 

6000 

6001 017176 
600e 017200 
6003 017206 
6004 017210 
6005 

6006 017212 
6007 017216 
6008 0172ec0 
60039 017¢ecee 
6010 017204 
6011 O17eeS 
60le O17ee6 
6013 
6014 017230 
6015 017234 
6016 017236 
6017 
6018 017240 
6019 0O17e4e 
60e0 017244 
60e1 
6022 017246 
60e3 017250 
60e4 

60eS 

6026 017252 
60e7 017256 
6 017260 
60e9 


6030 017262 


io0000 


000770 


ooo004 
012737 
O04 


104416 
104003 


00 
000312 
004437 
000003 
001000 
104417 
104430 
10400e 
104421 
104004 
004437 
002007 
001000 
004437 


042636 


001634 


042636 


o0001le Oo01e6e 


036eS2 


042636 


042636 


036eS52 


I09 
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TWO SECTOR WRITE DATA (PART 3) 


JSR R4, GENCOM ;DATA COMPARE 
100000 
000 1000 WORDS 
2s NO ERROR-SKIP 
ERROR 15 REPORT FIRST ERROR 
MOV ERRLMT,RO ;GET ERROR LIMIT 
64S: DEC RO :DECREMENT COUNT 
BEQ LSS ‘IF ZERO - EXIT 
JSR R4, GENCOM :CONTINUE DATA COMPARE 
R 65S ;NO MORE ERRORS - EXIT 
ERROR 16 ito NEXT ERROR 
R 64S LOOP 
65S: 
2s: 
: = RKKKKKEKRKKRRR REA RRRAAAKRAAA RE RARRRARRARARARAKKAKHAAAAARARAARARAAKE 
iA T 50 MID-TRANSFER SEEK ON WRITE (PART 1) 
x ISSUE A WRITE DATA OF 1000 WORDS TO CYLINDER 3il2, 
:% TRACK 0 SECTOR 25. READ DATA BACK ONE SECTOR 
3% A TIME AND MAKE SURE A MID-TRANSFER SEEK 
i BID" TAKE PLACE. 
i te ee eee 
MOV #10. ,STIMES -DO0 10. ITERATIONS 
TSSINIT PALEAR SUBSYSTEM 
ERROR 3 ‘BAD INIT ERROR 
JSR R4¥, LRLOAD ;LOAD_“L” REGS 
WRDATA egy A 
-1000 1000 WORDS 
OBUFF t OBUFF IS BUFF ADDRESS 
-BYTE 25 :SECTOR 2S 
‘BYTE O : TRACK O 
3le :CYLINDER 312 
JSR R4, GENCOM ; GENERATE DATA 
3 :PATTERN 3 
1000 +1000 WORDS 
TLOADRK ;LOAD RK_REGS 
TWATS6 :WAIT FOR INTERR 
2 :TO SLOW/NOT EONPLETE ERROR 


TCHKOP CHECK RATION FOR ANY ERRORS 
ERROR 7, jo; jREPOR ALL ERRORS 

; A TRACK eRRoh PRINTED Out at THE END OF THE OPERATION INDICATES A 
: mID- TRA NSF ER HEAD SWITCH of NOT OCCUR. 


2007 ’ 
1000 
JSR R4, LRLOAD ;LOAD "L” REGS 


SES Olle 


JOS 
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CZR6KE.P11 10-JAN-78 09:35 TSO MID-TRANSFER SEEK ON WRITE (PART 1) 
6031 017266 oO00121 RODATA ;RDDATA 
603 give? 77400 -400 -400 WORDS 
£084 bleeed aoe TBYTE 2S {TOU i ee Aceecte 
6035 017275 000 ‘BYTE O ACK O 
pes 017276 o003l2 312 ? CYLINDER 31é 
60 017300 104417 TLOADRK ;LOAD RK REGS 
6039 017302 1044eS TWAT4YS : WAIT FOR INTERRUP 
Rie 017304 104002 ERROR 2 :TO SLOW/NOT EONPLETE ERROR 
6042 817208 104421 TCHKOP *CHECK OPERATION FOR ANY ERRORS 
6043 1731 104004 ERROR 4 ;0R S, 6, 7, lo ; ;REPORT ALL ERRORS 
eal? Oi7ale 004437 036252 JSR R4, LRLOAD ;LOAD_"“L”™ REGS 
6 17316 lel RDDATA ;RDDATA 
6047 017320 177400 400 ;-400 WORDS 
He Bias Ori TBUFE +1090 SECTOR grrr ines IS BUFF ADDRESS 
6050 017325 001 ,BYTE 1 > TRACK 1 
6051 17326 000312 3le : OVC INDER 3le 
6053 017330 104417 TLOADRK ;LOAD RK REGS 
6054 017332 1044e5 TWAT4S ;WAIT FOR INTERRUPT 
PheP 017334 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
6057 017336 104421 TCHKOP :CHECK OPERATION FOR ANY ERRORS 
b0e8 017340 104004 ERROR 4% ;OR S, 6, 7, jo ; ;REPORT ALL ERRORS 
6060 17342 OO0O4437 042636 JSR R4Y, GENCOM ;COMPARE DATA 
6061 pt eaue T0000 sen 100000 : 
606e 017350 001000 1000 ; 1000 WORDS 
6063 017352 oO00413 R 1$ NO ERRORS-SKIP 
pied 017354 104015 ERROR 15 + REPORT FIRST ERROR 
6066 017356 013700 001634 MOV ERRLMT, RO ;GET ERROR LIMIT 
coco Blraes Borage os BE Os PERE SO" 
enes 617368 ocdan 042636 uRion R4, GENCOM CONTINUE DATA COMPARE 
6071 gi eaes o004Ge BR 65$ ;NO MORE ERRORS - EXIT 
7e 17376 104016 ERROR 16 ?REPORT XT ERROR 
6073 017400 000770 BR bYS ; LOOP 
pate 017462 6SS: 
6076 017402 1S: 
6077 ; STP TTT TTT TT TTT TTT ttt itttttt ttt iti tt tttttttitiitiittttt ttt e 
ope th T Sl MID-TRANSFER SEEK ON WRITE (PART 2) 
6080 x ISSUE A WATTS DATS OF 1000 WORDS TO CYLINDER 3le, 
6081 x roe 1 The 4 0 R + DATA BACK ONE SECTOR 
6082 3% TAT MAKE SURE A MID-TRANSFER SEEK 
p08; ie BID rate PLACE. 
6085 : © HE EE RRR RRR EEE KKK ERE KHER HEX 


6086 017402 oD0004 +6151: SCOPE 
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012737 o000le O00126e 
104416 


6KE.P11 


6087 017404 
6088 O174le 
e033 017414 
1 0174 
Hel girs 
6093 0174 
6094 Bitty 
He ttn 
ene Biv 
60 017434 
1 017440 
01744e 
017444 
017446 
0174S0 


KEW ODEN LOU ODD 


6 

61 

61 

61 

61 

61 

61 

61 

61 0174S2 

pt 0174S4 

61 Bie aes 

61 17462 

et 017464 

61 017466 

61:8 pi zics 

611 17474 

6118 017476 

6119 Bi 7 B00 

61e0 017501 

bist 017502 

61 

6le3 017504 

bieY 017506 

pis? 017510 
1 

61e7 017512 

61e8 017514 

£150 017S16 

6131 Bi 7eze 

6133 0175s 

e134 17 

6135 017531 

6136 017532 

£138 17534 

6139 Bi zeae 

6140 017540 

6141 

6142 017542 


104003 


104417 
1044eS 
104002 


104421 


036252 


042636 


042636 


036252 


036252 
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MID-TRANSFER SEEK ON WRITE, {PART 2) 


MOV #10. ,STIMES ::DO 10. ITERATIONS 
TSSINIT :CLEAR SUBSYSTEM 

ERROR 3 :BAD INIT ERROR 

JSR R4, LRLOAD ;LOAD_"L” REGS 

WROATA ATA 

-1000 *~1000 W WORDS 

OBUFF :OBUFF_IS BUFF ADDRESS 
-BYTE 25 :SECTOR 2S 

‘BYTE 2 2 

3le CYLINDER 312 

ISR R4, GENCOM ;GENERATE DATA 

4 *PATTERN 4 

1000 ?1000 WORDS 

TLOADRK ;LOAD RK REGS 

TWAT96 *WAIT FOR INTERRUPT 


wet 2 TO_SLOW/NOT COMPLETE ERROR 
A_ CYLINDER ERROR REPORTED AT THE END OF THE OPERATION INDICATES A 


Ce SEEK DID NOT OCCUR. 
TCHKOP “CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R 5S, 6, 7, 10 ;REPORT ALL ERRORS 


JSR R4Y, GENCOM ;CLEAR IBUFF TO ALL ONES 
2007 


1000 
ISR R4, LRLOAD ;LOAD_“L™ REGS 
RDDATA : RDDATA 
-400 :-400 WORDS 
IBUFF :IBUFF_IS BUFF ADDRESS 
-BYTE 25 ; SECTOR 2S 
“BYTE 2 ? TRACK 2 
312 *CYLINDER 312 
TLOADRK L000 RK. RK Ri Gs 
TWAT4B RUPT 
ERROR 2 :TO o ORONOT TEBRPLETE ERROR 
TCHKOP -CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
ISR R4, LRLOAD ;LOAD_“L” REGS 
RODATA : RDDATA 

0 :-400 WORDS 
IBUFF +1000 IBUFF+1000 IS BUFF ADDRESS 
-BYTE O ; SECTOR b 
“BYTE O : TRACK O 
313 *CYLINDER 313 
TLOADRK ;LOAD RK_R REG ie 
TWATYS ‘WAIT FOR INTERR 

2 :TO SLOW/NOT ERRPLETE ERROR 

TCHKOP ;CHECK OPERATION FOR ANY ERRORS 





SES 0114 


ROKE.P1l 
6143 017544 
6144 
6145 017546 
plier 
cio Bee 
6149 017560 
2130 
6151 017562 
pis Bt Zee. 
pie? Bier 
6155 Oi 4 
9138 1 
615 17602 
6158 017604 
61539 017606 
6160 
6161 017606 
pies 

16 
6164 
6165 
6166 
6167 
6168 
6169 
6170 
6171 
617e 
6173 017606 
6174 017610 
6175 017616 
6176 017620 
pize 
cl 
6180 
6181 017622 
6182 O0176c6 
6183 017630 
6184 
6185 017632 
6186 Bie 
6187 01764 
6188 
6189 017642 
6190 Bt ede 
6191 017650 
6192 0176Se 
pi33 B17ees 
ce RUE 
6196 
6197 017660 
6198 017662 
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104004 
004437 
100000 


1 
104015 
013700 
sage 
oe 
viateyg 
040000 


oo040e 
AGR018 
0770 


oo0004 


104417 
104430 


042636 


001634 


042636 


000012 o0126e2 


042636 


042636 


036252 
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SEQ 0115 


MID-TRANSFER SEEK ON WRITE (PART 2) 
ERROR 4 ;0R 5S, 6, 7, 10 ;REPORT ALL ERRORS 
ISR R4, GENCCM ;COMPARE DATA 
100000 
1000 ; 1000 _ WORDS 
1g (O MISCOMPARES-SKIP 
ERROR 15 i REPORT 1ST ERROR 
MOV ERRLMT,RO ;GET ERROR LIMIT 
64S: DEC RO sDECRENENT COUNT 
BEQ BSS F FERS EXIT 
JSR in 4, GENCOM ONTINUE DATA COMPARE 
BR 65S - MORE ERRORS - EXIT 
ERROR 16 iReport NEXT ERROR 
BR 64S OOP 
65S: 
1S: 
p Sees rgecceusegecesseeee"ts tat ia i; SSS 
jkr T 52 TWO SECTOR READ DATA (PART 1) 
: TA OF (0 WORDS TO CYLINDER 312, 
iy FREE Bee Re UeATEY YRRT CORRECT DATA TS 
7 READ. 
:% NOTE: TWO SECTOR WRITE DATA (PART 1) MUST BE 
i EXECUTED BEFORE THIS TEST. 
’ 


Ns gat +27 pee saaceaas pecans 
MOV 7 #10.,STIMES 
ERROR 3 


RERKLAAARLARAARERA RAL RLKE RA RRLEKE 


;:DO0 10. ITERATIONS 
:CLEAR SUBSYSTEM 
:BAD INIT ERROR 


;GENERATE SAME DATA AS USED IN TWO SECTOR WRITE DATA (PART 1) 


JSR R4Y, GENCOM 


JSR R4, LRLOAD 
TA 


TLOADRK 
TWATS6 


iemare a PCEN pare AS USED_IN TWO SECTOR WRITE DATA PART 1 


;GENERATE DATA 
i: TTERN 1S 
1000 WO ROS 
CLEAR IBUFF TO ALL ONES 


;LOAD “L” REGS 
DATA 

i-1000 W WORDS 

;IBUFF IS BUFF ADDRESS 

; CTOR O 
ACK O 

CYLINDER 312 

;LOAD RK REGS 

;WAIT FOR INTERRUPT 


quaeaieennmminll 
| 


CZR6KEO RK& FCTNL CTRL DIAG 
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CZR6KE.P11 10-JAN-78 09:35 TWO SECTOR READ DATA (PART 1) 
6199 017664 104002 ERROR 2 ;TO SLOW/NOT COMPLETE ERROR 
6201 017666 104421 TCHKOP :CHECK OPERATION FOR ANY ERRORS 
Be 017670 104004 ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 

1 437 042636 J R4, GENCOM ;COMPARE DATA 
B1be tanner 18G000 ; 

6206 0177 001000 1000 ; 1000 WORDS 
be07 0127 000413 R 1 ?NO MISCOMPARES-SKIP 
pee 1 01 RROR 1 

10 01771 37 001634 MOV ERRLMT, RO ;GET ERROR LIMIT 
est? p17 708 p43208 64S: DEC RO F Dee MENT COUNT 
pele 17714 1408 EQ 65S ae “pax! 
bel eek 437 042636 R R4, CENCOM COMPARE 

14 77 00 40000 
6215 017724 o0040e 65$ me MORE ERRORS - EXIT 
6216 017726 104016 ERROR 16 *REPORT NEXT ERROR 
6217 0177 000770 BR 64S ;LOOP 
6218 017732 65S: 
6219 

0 017732 1S: 

H : j Souseugenaneseuegesseveguesssusezensessensenensnsensasoauensess 
bece jATEST 53 TWO SECTOR READ DATA (PART 2) 
6224 3 ISSUE A READ DATA OF 1900 WORDS TO CYLINDER 312 
B25 2 TRACK 0, SECTOR 23. IFY THAT CORRECT DATA 15 
beee i READ AND A MID TRANSFE SEEK DOES NOT OCCUR 
6228 +x NOTE: TWO SE TOR W WRITE DATA (PART 2) MUST BE 
bees 5 EXECUTED & THIS TEST. 
ps3 ° © REGGE EEE RRRRA AK RRARRRRAKRRRRRRRER RRR RARER RRA A RRA RAKAKES 

017732 ocoo004 +753: 
6233 017734 012737 oo001e ool26e2 MOV #10. ,STIMES -DO 10. ITERATIONS 
bead o1774e 10441 TSSINIT igLEAR Suesys TEM 
bess 177 1040 ERROR 3 IN RRO 
be37 ;GENERATE SAME DATA AS USED IN TWO SECTOR WRITE (PART 2) 
6239 017746 004437 042636 ISR R4, GENCOM :GENERATE DATA 
6240 ee 000016 16 ;PATTERN 16 
peu 017754 1 1000 ?1000 WORDS 
6243 017756 OO4437 042636 ISR R4Y, GENCOM :CLEAR IBUFF TO ALL ONES 
6e44 eee 002007 2007 ’ ‘ 
pee 017764 001 1000 
17 N04437 036252 ISR R4, LRLOAD ;LOAD “L” REGS 

6247 017772 121 RDDATA :RODATA 
624 017778 000 -100 >-1000 WORDS 
624 17776 070414 IBUFF ?IBUFF_IS BUFF ADDRESS 
bes0 020000 Ges BYTE 5 j SECTOR 23 
bese BS ppoe 000312 3le + OSC ENDER 312 
6254 o20004 104417 TLOADRK ;LOAD RK REGS 


—————— nent ee 


NOS 


C O RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 117 SEQ 0117 
¢ Pil 10-JAN-78 09:35 TS3 TWO SECTOR READ DATA (PART 2) 
920006 104430 TWAT96 ;WAIT FOR INTERRUPT 
io 1 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
020012 1odeL TCHKOP -CHECK OPERATION FOR ANY ERRORS 
h20014 | ERROR 4 ;O0RS, 6, 7, 10 ;REPORT ALL ERRORS 
626 6 37 042636 JSR R4, GENCOM ;COMPARE DATA 
100000 
i 1000 ; 1000 WORDS 
4 1 1$ :NO_MISCOMPARES-SKIP 
ese 104015 ERROR 15 :REPORT 1ST ERROR 
913700 001634 MOV ERRLMT,RO ;GET ERROR LIMIT 
64S: DEC RO ; DECREMENT COUNT 
1406 BEQ 65S id ZERO “BxET 
be? pak 042636 JSR R4, GENCOM ONTINUE DATA COMPARE 
ae Oe Roe 65S ;NO MORE ERRORS - EXIT 
627 104016 ERROR 16 ;REPORT NEXT ERROR 
bers 4 000770 BR 64S > LOOP 
be7s 65$: 
6877 o20056 1S: 
78 } « SERKARAEAAKRREREEEAKAARARKARARKARRRRKRRRAKRERRKKRARKRRERRERRKRHRHLAREKS 
be73 jkr T S4 TWO SECTOR READ DATA (PART 3) 
6281 :% A READ DATA OF 401 WORDS TO CYLINDER 312, 
6282 ti tra SECTOR 10. 10. VERIFY THAT ALL 401 WORDS’ 
be83 i ARE BLACE 
6285 :% NOTE: TWO SECTOR WRITE DATA (PART 3) MUST BE 
bee i EXECUTED BEFORE THIS TEST. 
esas 00 00004 jititseeeeenecaueneenenenenedeeneneueneeuenauensenesesenenennenee 
bea0 OS OBED 509993 oo0012 001262 * MOV #10. ,STIMES ;;D0 10. ITERATIONS 
1 Oe0066 104416 TSSINIT *CLEAR SUBSYSTEM 
bese 020070 104003 ERROR 3 :BAD INIT ERROR 
bead ; GENERATE SAME DATA AS USED IN TWO SECTOR WRITE (PART 3) 
6296 020072 004437 042636 JSR R4, GENCOM ;GENERATE DATA 
97 76 ode 2 : PATTERN 
38 i O401 401 ?401 WORD 
6300 O20102 004437 042636 JSR R4, GENCOM ;CLEAR IBUFF TO ALL ONES 
920106 2007 
b0e il 000 1000 
6 o4 112 904437 036252 JSR R4, LRLOAD :ROoRTA REGS 
6306 G1e0 EEE, -401 401 WORDS 
6307 lee 070414 IBUFF  TBUFF IS BUFF ADDRESS 
case Getiee Ong Be ‘a 
6310 O20126 op03ie 312 :CYLINDER 312 


-—-—-—-----— --- so —_ ---- +e - estes sees 
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BS BS BSS 


to 
mn 


o 
Ww 
= 
Di 
= 
ee ee ee ee 


RNOTENE LUE Lon oF ZR 


BEEERS 


0e0e 
0202 


O0e0e51 
Oe0eSe 


104003 


004437 
000003 
001000 
004437 
002007 
001000 
004437 

lel 
b5 000 
70414 

es 


000 
000312 


042636 


001634 


042636 


000012 O0126e 


042636 


042636 


036252 
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PAGE 118 
TWO SECTOR READ DATA (PART 3) 


SEQ 0118 


TLOADRK ;LOAD RK aPess 
TWATS6 :WAIT FOR INT ERRUP 
ERROR 2 ?TO SLOW/NOT BAPE ETE ERROR 
TCHKOP :CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
SR R4, GENCOM ;COMPARE DATA 
100000 
Oi ;401 WORDS 
R 1$ MISCOMPARES-SKIP 
ERROR 15 ‘PRINT FIRST ERROR 
MOV ERRLMT, RO ;GET LIMIT 
64S: DEC RO *DECREMENT COUNT 
BEG 65$ :IF ZERO - EXIT 
JSR R4, GENCOM :CONTINUE DATA COMPARE 
BR 65S ;NO_MORE ERRORS - EXIT 
ERROR 16 tREPORT NEXT ERROR 
65S - so 


1S: 
if 


pee 


| Secuspgnennaenessvercscsntzrenpentecesseoseeensnsnensneananens 


MID-TRANSFER SEEK ON READ ( 


8, Eee DATA. OF 19 WORDS TO CYLINDER 312 

TRACK O, TOR FY THAT C CT DATA IS 

ROR ID TRANSFER SEEK DOES OCCUR. 

NOTE: MID-TRANSFER SEEK ON WRITE (PART 1) MUST BE 
EXECUTED ORE THIS TEST. 


+ REE A RRR ARA RAE RARELERREEEEEERERRRE REESE EE 


Vv #10. ,STIMES ; 10. ITERATIONS 
TSSINIT APP EAR SUBSYSTEM 
ERROR 3 :BAD INIT ERROR 


GENERATE 5 SAME DATA AS USED TN TD TROSFER SEEK ON WRITE (PART 1) 


- R4, GENCOM 3 GENE N3 

1000 ‘1000 WORDS 

Jar, R4Y, GENCOM ;CLEAR IBUFF TO ALL ONES 
1000 

JSR R4Y, LRLOAD ;LOAD “L” REGS 

RODATA ;RDDATA 

-1000 ;-1000 WORDS 

IBUFF ;IBUFF_IS BUFF ADDRESS 
-BYTE 26 ;SECTOR 2S 

-BYTE 0 ; TRACK 

312 ;CYLINDER 312 


6407 


co 
+ 


COOCrCrrrnr 
SELLS LSICLC£ 


0 RK6 FCTNL CTRL DIAG MACY11 30A(10S52) 10 57 
Ot seNe Bg §3°3s 986 mbcr ANSEER OPER” on p tfart 1) 
sekeee iRtias Taage" 1ueiy Poe "t iene 
Dios RoR 2 aoe boeNOT f C ETE ERROR 
O20262 104421 TCHKOP CHECK OPERATION FOR ANY ERRORS 
020264 104004 ERROR 4 ;O0RS, 6, 7, io ;REPORT ALL ERRORS 
pe0e66 437 042636 J R . R4, GENCOM ;COMPARE DATA 
020274 991900 1900 ; ;1000 WORDS = 
Beeson foudle Baron ie iO TESEOMPORES-5K 
001634 V RRLMT, RO RROR LIMIT 
05030 64S: DEC BG ‘ IBECRERENT COUNT 
10 001406 BEQ 65S 
l2 004437 042636 JSR io R4, GENCOM + CONTINUE DATA COMPARE 
BR 655 ;NO MORE ERRORS - EXIT 
104016 ERROR 16 :REPORT NEXT ERROR 
ge03e4 000770 BR 64S * LOOP 
020326 6S$: 
020326 1S: 
5 O, essanenanennaaeusuauaeusuasquacauseenseseauecesannseuscesaens 
j ATEST 5b MID-TRANSFER SEEK ON READ (PART 2) 
1% ISSUE A READ DATA OF 1 TO CYLINDER 312 
i TRACK 2, SECTOR VERIEY OR aT CORRECT DATA IS 
i READ AND ROR IDY TRANSFE SEEK DOES OCCUR. 
+ NOTE: MID-TRANSFER SEEK ON WRITE (PART 2) MUST BE 
3 EXECUTED BEFORE THIS TEST. 
0203 Ogee ° -agieaaaaaannamae iaemcmmmammmaeaammmn emits: 
020330 ¢ era 000012 001262 PR ane #10. ,STIMES pee 10. ITERATIONS 
pSoau 184 Ob8 ERROR 3 Babe NET ERROR 
; GENERATE SAME DATA AS _— IN M TRANSFER SEEK ON WRITE (PART 2) 
020342 004437 042636 : JSR 4, GENCOM ; GENE: RATE DA 
020346 ocoo004 : CATTERN * 
020350 001000 tooo +1000 WORDS 
004437 042636 ISR R4, GENCOM :CLEAR IBUFF TO ALL ONES 
hanes 002007 2007 . , 
020360 001000 1000 
020362 004437 036252 ISR R4, LRLOAD ;LOAD_“L” REGS 
020366 0901 RDDATA jR TA 
1 -1000 -1000 WORDS 
372 070414 IBUFF i TBUFF IS BUFF ADDRESS 
020374 025 -BYTE 25 :SECTOR 2S 
020375 ooe2 “BYTE 2 K 
020376 oO0031e 312 CYLINDER 312 





SEQ 0119 
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CZR6KE.P11 


020400 
02040e 
020404 


Bsus 
620810 
Dene tt 
020514 

Os0e1e 


020520 
Oe0See 


10-JAN- 
104417 
104430 
104002 


104421 
104004 


as 
Bese 


013700 


104417 
104434 
104002 


104421 
104004 


L DIAG 
8 09:35 


042636 


001634 


042636 


o0001ie Oo0lebe 


036476 020510 
036252 


DLO 


MACY11 Samal 10-JAN-78 09:57 PAGE 


MID-TRANSFER SEEK ON READ 1 Bart 2) 


TLOADRK ;LOAD RK REGS 

TWAT96 :WAIT FOR INTERRUP 

ERROR 2 :TO SLOW/NOT EORPLETE ERROR 
TCHKOP -CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R 5S, 6, 7, 10 ;REPORT ALL ERRORS 

188500 R4, GENCOM ;COMPARE DATA 

1000 ; 1000 WORDS a 

Efron REPORT Fire ERROR 

MOV ERRLMT,RO RROR LIMIT 


one, ee.) one fe RO Exit. 


JSR R4Y, GENCOM CONTINUE DATA COMPARE 


40000 
BR 65S Reed MORE ERROR oReett 
RROR 1 ik P XT E 
R 64S 
bSs: 
: Soe NNN LINDER MDORESS OVERFLOM (PART 1) 
; ATES CYLINDER ADDRESS OVERFLOW (PART 1) 


f TRBCK 8, SECTOR a5. MAKE SURE CYLINDER ADDRESS 


* 
’ 
-& 
iS QvERE LOW ieee 1S por eED. FoR” SHE RKO7. 
er ee ee 
MOV #10. ,STIMES -DO 10. ITERATIONS 
TSSINIT tALEAR SUBSYSTEM 
ERROR 3 :BAD INIT ERROR 
MOV LsTew 1$ 
JSR RLOAD ;LOAD “L” REGS 
RDDATA 
7a09 5400 WORDS 
IBUFF :IBUFF IS BUFF ADDR 
-BYTE 25 :SECTOR 2S 
"BYTE 2 : TRK : 
1S: 0 'CYL 63271456 
TLOADRK ;LOAD RK REGS 
TWAT1S9 :WAIT FOR INTERRUPT 
ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
TCHKOP :CHECK OPERATION FOR ANY ERRORS 
16 ;REPORT ALL ERR 


RROR q 
uuneustorrenasnucl seuchethuclostelstabcsustiebecsccunseunaseces 
ikTEST 60 CYLINDER ADDRESS OVERFLOW (PART 2) 


SEQ 0120 


E10 


CZR&KEO RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 121 SEQ 0121 
CZREKE.P11 10-JAN-78 09:35 T60 CYLINDER ADDRESS OVERFLOW (PART 2) 

6479 ;% : SUZ A READ DATA OF 401 WORDS To CYLINDER 632 

6480 1 i ACK 2 CTOR 2S. MAKE SURE CYLINDER ADDRESS 

6481 * OVERFLOW ERROR DOES OCC 

buBe i* CYLINDER 1456 IS USED FOR THE RKO7. 

64 ae KRKKKRAAAKARAAAASRSRS RARER ASARARAAAERALAARHEA AAR RERAEARARAAA AAS 

648S gegsen 909004 S760: SCOPE 

6486 12737 oo00012 o01262 MOV #10. ,STIMES -DO 10. ITERATIONS 

6487 34 104416 TSSINIT iALEAR SUBSYSTEM 

64 38 h 205 ERROR 3 :BAD INIT ERROR 

64 13737 036476 O20s62 MOV LSTCYL,1$ 

6490 437 036252 JSR R4, LRLOAD ;LOAD “L” REGS 

649 121 RDDATA 

64 4 177377 -401 ;401_ WORDS 

649 56 0414 IBUFF :IBUFF IS BUFF ADDR 

6494 025 -BYTE 25 ; SEC 2s 

649S ge0ebl oo2 “BYTE 2 :TRK 2 

b43 000006 1S: 0 ?CYL 632/1456 

6498 4 104417 TLOADRK LOAD RK REGS 

6499 104434 TWATISS mar FOR INTERRUPT 

6500 020570 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 

65) 020572 104422 TCHKWE ;CHECK OPERATION WITH EXPECTED ERROR 

6503 020574 001000 COERR :CYLINDER OVERFLOW 

6 620576 o00000 0 

6505 029600 000000 0 

650 20602 104004 ERROR 4; OR S,6,7 ;REPORT ANY DISCREPANCIES 

65 

6509 .SBTTL #18 BIT DATA TRANSFER TESTS 

6511 . jSeceeeeeeNeee AT In nt aCTOR FORT 

pele j ATE FORMAT IN 24 SECTOR FORMAT 

~ 

6514 is FORMAT CYLINDER 12, TRACK 0, AND TRACK 1 FOR 24 SECTOR 

6515 1 i FORMAT. VERIFY FORMAT AND THAT DATA LATE DID NOT 

6516 1 i OCCUR WITH WRITE HEADER ON IN READING DATA BUFFER 

6517 $i AFTER READ HEADER. 

6519 oe KEKKKEKLERKRERERERARKRARESRA RARE RRR RARAARKRAAKAKAKKKRAASRRE ARKH RKKRE 

6520 0604 oOo0004 tST61: SCOPE 

6521 012737 0012 001262 v #10. ,STIMES ;;00 10. ITERATIONS | 

6522 0614 012737 OOOZI2 ODIE7E MOV #312: REENT :SET REFORMAT SWITC 

6523 012737 O20632 001110 MOV #1, $LPERR ?SET LOCAL LOOP ON ERR OR 

b5e4 06 005001 ie CLR ‘ar EAR Rl FOR TRACK COUNTER 

pease 104416 TSSINIT Sho ty SYSTEM 

be? : 104003 ERROR 3 “ERROR 

6 l2 010127 001600 MOV #WRHEAD! CFMT,L. fi UP FOR WRITE HEADER 24(8) SECTOR MODE 

6529 44 053737 001720 001600 BIS OTYPE,L.CS1 

65 0137 7 00126 01610 MOV BRYNUA, L.cs2 SET Oy VE HUNGER 

6531 12737 000074 1602 MOV LC” BET at COUN 

6532 110137 001607 MOVB i oe OT LOAD TRACK ADDRESS 

6533 020672 012737 072414 001604 MOV Rit 07, .BA : SET BUS ADDRESS 

6534 020700 012737 000312 001614 MOV #312,L BerL : CYLINDER ADDRESS 


10 
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CZROKE.P11 10-JAN-78 09:35 Tel FORMAT IN 24 SECTOR FORMA 
6535 
6536 020706 004437 042636 ISR R4, GENCOM ;GENERATE HEADER 
6537 020712 001200 1200 : INCLUDE BAD SECTOR BITS 
533 Dz nae 104417 TLOADRK LOAD BK REG - 
6540 p71 104434 TWAT159 sar FOR INTERR 
pei C 207 104002 ERROR 2 TO SLOW/NOT COMPLETE ERROR 
6543 2 104421 TCHKOP :CHECK OPERATION FOR ANY ERRORS 
peu 858585 1pd dod ERROR 4 ;ORS, 6, 7 CHE ALL ERRORS 
104415 SCOP1 ;LOCAL LOOP ON ERROR TO 1S 
005701 TST Ri Rd POINTING TO TRACK O 
001002 BNE 2s “SKIP 
ee INC Ri :BUE 0 TRACK 1 
12737 020750 001110 2S: MOV #3$, SLPERR ISET T LOCAL LOOP ON ERROR 
1 a LR R1 :CLEAR TRACK POINTER 
104416 ‘ TSSINIT ;CLEAR SuesySTEM 
104 ERROR 3 :B T ERROR 
bie?3 010125 001600 MOV BROHEAD! CENT, L.c$i BAD AD 24(8) SECTOR FORMAT 
013737 001626 001610 MOV DRVNUM L.cSe’ ;LOAb ORIVE NUMBER 
110137 001607 MOVB R1,L.D LOAD TRAC 
012737 000312 001614 MOV RPh 44 CYLINDER 
0? 004437 036740 ISR R4, ROSTHD Aer READ ADER 
02 104421 TCHKOP TCERR H ae DATA LATE SET 
Oe 194004 ERROR 4: OR 5S,6,7 oF THE R ERRORS 
104013 ERROR 13 fac 
6566 Oe 104002 ERROR 2 | Bere ilby TO SLOW” OR “HEADER 
ae fe Aor F SAGE 
6569 O21016 104415 SCOP1 gop To 3S ON 
6570 1020 004437 042636 JSR R4, GENCOM i EONERATE 
6571 1024 101200 101200 INCL Iho BAD gskc! oR reste 
657. 10e6 000413 4s NO 
6573 1 104015 ERROR 1 BM ig FIRST RISCOMPARE 
6575 021032 013700 001634 MOV ERRLMT,RO ;GET ERROR LIMIT 
6576 1 005. 64S: DEC RO CREMENT COUNT 
65 1 14 BEQ 65S PIF ZERO - EXIT 
657 1042 437 042636 ISR R4, GENCOM :CONTINUE DATA COMPARE 
657 1046 o40000 40000 
65 021050 000402 BR 65S ;NO MORE ERRORS - EXIT 
6581 O21052 104016 ERROR 16 :REPORT NEXT ERROR 
6582 921054 000770 BR 64S *LOOP 
6583 1056 65S: 
Pege 021056 104415 4S: SCOP1 ;LOCAL LOOP TO 3% 
65 921060 005701 TST Rl ; POINTING TO TRACK 1 
658 10) 001002 BNE S$ NO-EXIT 
6588 021064 o0S5201 INC Rl ‘BUMP TO TRACK 1 
6589 021066 000730 BR 3$ : LOOP 
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6624 
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021070 
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Se hehehehe ee he ee he 
Loud gull ced orl od ond ocd ond ao ool aed ae eel ed ed 
NO FNEVOEH BRR Sow SRond 


uw 
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os 
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004437 
Ou0le2 
1774 
0724 


000 
000312 
104417 
104430 


104417 
104424 
104002 


104421 
104004 


004437 
100000 
000400 


042636 


0362S2 


036eS2 


042636 


MACY11 eae ae ois be 423 SES 0123 


g [SEEeNesennennoenensaensensennannaeeseensenseesentensanssensees 
foe 24 SECTOR FORMAT DATA TRANSFER (PART 1) 


EFSSRS SNEHTS,9°76,06, 90 MOROEA TY e565 SFO Bc 
is MARE SURE + I 1S Bre SRRECTS 


+ LEKREKKARAKRSAHRRAERKAEAASARAALAARARASRARARAAARAERAKRARALALAAARAKKAAKE 
geese SCOPE 


MOV #10. ,S$TIMES ;;D0 10. ITERATIONS | 
MOV #312’ REFMT :SET REFORMAT SWITCH 
TSSINIT *CLEAR SUBSYSTEM 
ERROR 3 :BAD INIT ERROR 
ISR R4, GENCOM ;GENERATE DATA 
13 :PATTERN 13 
400 :400 WORDS 
JSR. R4, GENCOM ;CLEAR IBUFF TO ALL ONES 
400 
JSR RY, LRLOAD ;LOAD “L” REGS 
WRDATA! Crt an -WROATA!CFMT 
OBUFF : OBUFF IS BUFF ADDRESS 
“BYTE O :SECTOR O 
“BYTE O : TRACK O 
312 :CYLINDER 312 
TLOADRK ;LOAD RK REGS 
TWATS6 :WAIT FOR INTERRUPT 
ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
TCHKOP ise OPERATION FO FOR. ANY ERRORS 
ERROR 4 ;0RS, 6, 7, EP: ALL ERRO 
ISR RY, LRLOAD ;LOAD “L” REGS 
RODATA! CENT wae -RDDATA!CFMT 
IBUFF  TBUFF IS BUFF ADDRESS 
-BYTE O :SECTOR O 
“BYTE 0 : TRACK O 
312 :CYLINDER 312 
TLOADRK ;LOAD RK REGS 
TWAT32 :WAIT FOR INTERRUPT 
2 ?TO SLOW/NOT EONPLETE ERROR 
TCHKOP :CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS,. 6, 7, 10 ;REPORT ALL ERRORS 
JSR R4, GENCOM ;COMPARE DATA 
100000 
400 ;400 WORDS 


CZR6KEO RK& FCTNL CTRL DIAG 


CZR6KE.P11 
6647 Oeleee atts 
6648 Oelee4 
6649 
66 1 
66S4 ast 
6655S i 2 
see Bis ca 
66 1eSe 
6689 
PEL 0212Se 
6663 
6664 
6665 
66 
6667 
6668 
6669 
eer? 
667 
eer O21eSe o00004 
667 1254 0127 
eee Osise2 B1s937 
sere BSE Bticts 
6 021300 004437 
1 Aig nia 
P 1 4 
6684 021310 032737 
6685 tke 19¢ 
see Bisse Bleed 
6688 021330 
6689 021332 
6690 
6691 021332 012777 
6639e 021340 012737 
peas 021346 012777 
6695 021354 013746 
6696 021360 Ole746 
6697 021364 000002 
Ge BES sou 
6700 021370 104003 
6701 021372 004437 
6702 021376 010123 


10-JAN-78 09:35 


001634 


042636 


oooo04 

100200 
600001 
001622 
021366 


036252 


MACY11 30A( 1052) 
Té2 


001664 


160332 
072640 
160316 


H10 


10-JAN-78 09:57 


BR 1$ 


PAGE 124 
24 SECTOR FORMAT DATA TRANSFER (PART 1) 


SEO 0124 


;NO_ MISCOMPARES-SKIP 


ears COUNT 
INUE By COMPARE 
MORE ERRORS - EXIT 


A WRITE 
R_3le, T Ack RO. 


IRE EPA PERE BEES vo ser, 


ERROR 15 :REPORT 1ST ERROR 
MOV ERRLMT, RO if 
64S: p c 
65S id 
JSR R4, GENCOM :¢C 
40000 
BRROR ees iR T NEXT ERROR 
BR bEs REPOR 
6S$: 
Arora ri ur oe 
aT 63 24 SECTOR FORMAT DATA TRANSFER (PART 2) 
4 
: AT WIT TY 
H Se ares nia ged TOR FORRAT Yo cve 
i SECT H BUFFER 
i READ H B00, PAR] Ack AND Fake SURE UN 
at NOTE: TEST I TED ONLY IF MEMORY PARITY 
i Exters POR SPECT iF ie LOCATION. 
; 


tees: Soy #10, TIMES 
MOV #312 Sr 
BIT SPARPRE, OPTFLG 


Q 
1S: JSR R4, GENCOM 
400 
BIT #CP1170, OPTFLG 
BNE 11$ 
MOV #PR7,-(SP) 
MOV #107 -(5P) 
RTI 
10S: 
MOV aBITe SCSRPTR | 
MOV 00260, OBUFF + 
MOV wart. acSRPTR 
6S: MOV RKPRI, -(SP) 
MOV #11$,-(SP) 
RTI 
11S: 
TSSINIT 
ERROR 


JSR LRLOAD 
dehata:crnt 


s RGR EEEREEEREEERRRK EEE RARE EE RARE EERARAERERAAAAARA EAA KRLEE 


. eh TERAT ION, 
iPRRITY hee PRESENT? 


GENERATE DATA 
; PATTERN Z 
400 WORDS 


; TEST .* 14770 


Ye PRIORITY TO 7 


:SET WRONG PARITY WRITE 
-WRITE WITH BAD PARITY 
;CLEAR WRONG PARITY, SET IE 


;RESTORE PRIORITY 


;CLEAR SUBSYSTEM 
s BAD INIT ERROR 
LOAD “L” REGS 

; WROATA! CFMT 


NL CTRL DIAG 


CZR6KEO RKE FCT 

CZR6KE.P11 
pro Bho arr 
ce aie os 
£707 Os140e 000312 
6709 paris 013704 
ie iste ieee 
Erie Bs i4es 1 a 
6713 021430 2777 
6714 Ge21436 012737 
6715 1444 nh ts 
e718 1446 032737 
671 14S4 1433 
6718 Oel4S&6 012737 
6719 021464 012777 
bet Bites Bieri 
eres 
67e4 021504 105711 
be BING Bats 
672 ae 100774 
ee Bil he 
6730 681220 000240 
6731 OelSee O0S014 
6732 
£735 021524 
6735 1 Ole? 
bre BIS flere 
ALA stan Aeonin 
pe Bins RnL 
6740 021556 0010 
6741 tts 005077 
674e 021564 005037 
6743 peteco 012777 
poe 021576 0414 
67 651600 737 
674 1606 1007 
ce BiG tiatee 
bet Bites Sieées 
e725 021630 
6754 021630 104421 
675S Oelb63e 104004 
6756 
6757 


10-JAN-78 09:35 


001672 


00 
170000 


177746 
800108 
0100 


002000 
160106 
072640 
000001 
002000 
160056 


072640 
000001 


MACY11 30A(10S2) 
T63 


160170 
160260 
001264 
001664 

77746 


1 
160216 
157444 


160074 


001664 


160044 


10-JAN-78 09:57 


-400 
OBUFF 
“BYTE 0 
“BYTE OO 
312 
MOV CSRFTR,RY 
CLR R 
MOV #INTSET, Ri 
MOV #SPCHLR, JRKVEC 
MOV #SPCPAR. aMMVECA 
MOV 84S, SESCAPE 
TLOADRK 
BIT #CP1170,OPTFLG 
BEQ 45$ 
MOV #16, 177746 
MOV #0, 2KWLADD 
MOV #0, aSTKS 
MOV #170000, (R4) 
s REKKKKRERARRERARRKRHKRREE 
40s: TSTB (R1) 
BGT 43 
DEC RO 
BMI 40S 
NOP 
BGT 40S 
NOP 
43$: CLR (RY) 
: KEKKEKEKREEKKEKKHK RHE EE 
CLR 177746 
MOV wBITe JKWLADD 
MOV #100, 2$TKS 
4S$: TWAT96 
BR 46S 
BIT #CP1170, OPTFLG 
BNE 4 
CLR JCSRPTR 
CLR OBUFF +224 
MOV #1, JCSRPTR 
BR 48s 
46S: BIT #CP1170, OPTFLG 
BNE 47 
CLR JCSRPTR 
CLR OBUFF +224 
MOV #1, CSRPTR 
47$: ERROR 2 
48S: 
TCHKOP 


ERROR 4 :ORS. 6, 7 
A UNIBUS PARITY ERROR RE 
: TIME INDICATES CONTROLLE 


PAGE 125 
24 SECTOR FORMAT DATA TRANSFER (PART 2) 


;-400 WORDS 

;OBUFF IS BUFF ADDRESS 

$ TOR O 

; TRACK O 

;CYLINDER 312 

;LOAD RY WITH CSR POINTER 
;CLEAR_RO FOR COUNTING 


; Ri yf POINTER INTERRUPT FLAG 
;SET IN vor 08 RK611 


A AND Y 

:SET ESCAPE FOR ERROR 

TES IF li/ 

SET TO DISABLE CACHE 
CLOCK INTERRUPTS 

; TURN_OF 


KEYBOARD INTERRUPTS 
;SET TO FORCE PARITY ERROR 
WA 


“am Oe 


; LOOP IT 
i CODE BETWEEN 
: S HAVE PARITY 
‘TRAPS ON AN 11/70. IF THIS CO 
?NGED, REMENBER ALL BYTES MUST HAVE AN 
:EVEN NUMBER OF BITS. 

;CLEAR ERROR FORCE 


K INTERRUPTS 
Avon INTERRUPTS 


ERRUP 
OMPLETE ERROR 


p< 
HO 

om 
<4 
= 
S 
D 
5 


; ENABLE 
; REPORT 


:CHECK OPERATION FOR ANY ERRORS 
16 ;REPORT ALL ERRORS 


PORTED AT THIS 
PROPERLY TRANSFERRING DATA IN 18 BIT MODE 


SES 0125 


5 tats RK& FCTNL CTRL DIAG 
6KE.P11 10-JAN-78 09:35 


6759 
6760 
6761 021634 
6762 1640 


6768 
6769 
6770 
6771 
6772 
6773 
6774 
6775 
6776 
6777 
6778 071660 
6779 021662 
6780 021670 
6781 Ge21676 
678e Oel70e 
6783 021704 
6784 
e7ee Osiris 
eee BS1719 
6788 
6789 021716 
6730 Jel7ee 
peak 021724 
6793 021726 
eras Osi73q 
6796 O8173¢ 
6797 021740 
6798 Jel741 
67399 0el74e 
6800 
6801 pete? 
680e 1746 
6 021750 
6804 
6805S 021752 
6806 021754 
6807 
6808 021756 
6809 021762 
6810 021764 
6811 021766 
68le 021770 
6813 021771 
6814 021772 


772 
004737 
012777 


004437 
“Steed 
1000 
004437 


104417 
104430 
104002 


104421 
104004 


4437 
0101e1 
177000 
070414 


000 
00031e 


001264 
0 


0 
000100 


000012 
000312 
035120 


042636 
042636 


036252 


036252 


J10 
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157752 
157264 


001262 
001676 


24 SECTOR FORMAT DATA TRANSFER (PART 2) 


4S: CLR SESCAPE 
HOV BINTHLR, RKVEC ;RESET INT VECTOR FOR RK611 
MOV #100, d$TKS ;ENABLE KEYBOARD INTERRUPTS 
es: 
: + REMAKE AA ARSE RAR RRA REAR KA ERR ARR A RRR A RARER ARAEAAA RAK KAA RRARAKE 
PETEST 64 24 SECTOR FORMAT DATA TRANSFER (PART 3) 
;% ISSUE A WRITE DATA 0 OF 1000 WORDS IN 24 SECTOR FORMAT 
1 i TO “Mkt SURE Tt CK 0, SECTOR 23. READ SECTOR BACK 
$ AND MAK tI SE ORRECTS MAKE SURE THAT MID-TRANSFER 
i SEEK HAS TAKEN P LACE. 
’ 


5% 
| ug °° jt a cnet aged catiaicn ciie ts tei e 


+éTe4: 
#10. ,STIMES ;;D0 10. ITERATIONS 
i SET REFORMAT SWITCH 
UP OPTIONS 


JSR PC, OPTTST :SET 

TSSINIT :CLEAR SUBSYSTEM 

ERROR 3 *BAD INIT ERROR 

ISR R4, GENCOM ;GENERATE DATA 

15 :PATTERN 15 

1000 ?1000 WORDS 

JSR. R4, GENCOM ;CLEAR IBUFF TO ALL ONES 

1000 

ISR R4, LRLOAD ;LOAD “L” REGS 

WROATA! CFMTt - WRDATA! CFMT 
-1000 -1000 wd 

OBUFF  OBUFF IS BUFF ADDRESS 

“BYTE 23 :SECTOR 23 

"BYTE O * TRACK O 

312 :CYLINDER 312 

TLOADRK ;LOAD RK REGS 

TWAT96 WAIT FOR INTERRUPT 

ERROR 2 'TO SLOW/NOT COMPLETE ERROR 

TCHKOP :CHECK OPERATION FOR ANY ERRORS 

ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 

JSR R4, LRLOAD ;LOAD “L” REGS 

RODATA! CFMt *RDDATA!CFMT 
1000 -1000 WORD 

IBUFE :IBUFF IS BUFF ADDRESS 

-BYTE 23 :SECTOR 23 

"BYTE O t RACK ry) 

312 :CYLINDER 312 


SEQ 0126 


E.P 

S 
iS sizes 
sel. BBAGGE 
O2200e 
H 022004 


keneneo "\’ FCTNL CTRL DIAG 


10-JAN-78 09:35 


104417 


4437 
100000 
001000 
000413 
104015 
013700 

00 


000770 


ooooo4 


6 
104003 
004437 
000127 


000 
00031e 


042636 


001634 


042636 


K10 


MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 127 SEQ 0127 
T64 24 SECTOR FORMAT DATA TRANSFER (PART 3) 
TLOADRK ; LOAD RK REGS 
TWATEY WAIT FOR INTERRUPT 
2 :T0 SLOW/NOT COMPLETE ERROR 
TCHKOP *CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;OR 5, 6, 7, fo ; ;REPORT ALL ERRORS 
JSR R4, GENCOM ;COMPARE DATA 
100000 
1000 ; 1000 WORDS 
R 1$ NO MISCOMPARES-SKIP 
ERROR 15 + REPORT FIRST ERROR 
MOV ERRLMT,RO ;GET ERROR LIMIT 
64S: DEC RO j DECRENENT COUNT 
BEG 65S Feta EXIT 
dating R4Y, GENCOM i oon INUE “DATA COMPARE 
R 65S ;NO MORE ERRORS - EXIT 
ERROR 16 > REPORT NEXT ERROR 
BR 64S ; LOOP 
65$: 
i$: 


-SBTTL #**SPECIAL DATA TRANSFER TESTS 


; j Sepensquansaneansssdessecstsse ter nee 
; ATE MULTI-SECTOR DATA TRANSFER AND BSE 


FORMAT CRARRED , TRACK 0. IN bef? SECTOR FORMAT WITH 
RKED “ ISSUE A E DATA OF 1000 WORDS 

TO. onaer R 3le, TRACK 0, SECTOR 0. MAKE SURE BAD SECTOR 

RKDA Is CORRECT. READ SECTOR O AND 

ers E IT IS CORRECT. 


a A_READ pare OF 1000 WORDS TO CYL INGER 312, TRACK O, 
SECTOR 0. _ MAK 5 err BAD SECTOR ERROR SETS AND THE 
PREVIOUS SECTOR IS LOADED CORRECTLY INTO MEMORY. 


+ age 9" > le at ese meted tabi hae te haan aie net tie ota: 


téTes COPE 
MOV #10. ,STIMES ;;00 10. ITERATIONS 
MOV #312’ REFMT iSeT EFORMAT SWITCH 
TSSINIT ?CLEAR SUBSYSTEM 
ERROR 3 :BAD INIT ERROR 


JSR R4Y, LRLOAD ;LOAD “L” REGS 
WRHEAD Lege ig 


O02 WORDS 
OBUFF fOBUFF IS BUFF ADDRESS 
-B 0 ;SECTOR O 


. ; TRACK O 
312 :CYLINDER 312 


© RC DIC RC IC CC IK Oc Oe oi 


oe See Ss ee wees eses wees ees 


CZRKEO RK6 FCTNL CT 
CSREKE.P11  10-JAN- 
6871 022106 004437 
e872 022112 000600 
6874 022114 042737 
Ba75 Oeelee 042737 
ce oeeiw sper 
Paog besiad toudde 
eeBt 136 104421 
begs pSsiss = 1B8ided 
fe as Bi 
fa i 
te 
1 + 

6891 abd 
£892 022162 004437 
He ie 
6895 022172 072414 
6896 022174 000 
6897 022175 O00 
p638 022176 o003i2 
6900 O22200 10441 
6901 Os2202 104404 
Bade 22204 104002 

2 104422 

2210 000000 


SCOOT KTOrO 
wre & 

f 

fu 

Tu 


OOVOUNL 
§ BR RU 
no 


is 
8 
2 
3 
N 


COCO Koo 
iitetetet ated 
4 
ty 
: 
8 


ro 
ww 
tur 
Wr 
for 
ror 
Ha 

Se 


oS 
out 
8g 


8) 
8 ds: 735 
042636 


040000 
040000 


042636 


042636 


036252 


Bab380 
000020 
oS4622 
peoaae 
Be 1048 
ooo040 


D5 1098 


050332 
0S0350 


MACY11 — 


072424 
072426 


050360 


po14s0 
1434 
001202 
001204 


1S: 


-JAN-78 


JSR R4, GENCOM 
600 


19 09:57_ PA 
MULTI-SECTOR DATA TRAN 


SER AND BSE 


;BUILD HEADERS 


BIC #81T14,OBUFF+10 ;MARK SECTOR 1 BAD 
BIC #BIT14; OBUFF+12 ;CORRECT HURC 

TLOADRK ;LOAD RK_REGS 

TWAT112 WAIT FOR INTERR 

ERROR 2 :T0 SLOW/NOT EBNPLETE ERROR 
TCHKOP ; CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R 5S, 6, 7 };REPORT ALL ERRORS 

JSR R4, GENCOM ; GENERATE DATA 

1Boo P Boo RoRbe 


i, R4Y, GENCOM 
[000 


R4Y, LRLOAD 


wo 

< 

+ 

mno 
oo 


TLOADRK 

TWAT32 

ERROR 2 

TCHKWE 

BSERR 

; OR S,6, 


fe Pk crs 


7 


BIT aTAKERR, GRPYER 
MOV ten13 EM10N 


MOV EXPTRK, SREGIO 

MOV REAL TRK, SREGI 

MOV #OPER37,DFO10 

ERROR 

R 

BIT SSECERR, GRPYER 
BEQ 


MOV SOLU | 


C, $REG10 
MOV REALSEC, SREGLI 


;CLEAR IBUFF TO ALL ONES 


;LOAD “L” REGS 
;WRDOATA 


371000 WORDS 
;OBUFF IS BUFF ADDRESS 
;SECTOR O 
; TRACK O 
;CYLINDER 312 
;LOAD RK REGS 
suart FOR INTERRUPT 
TO SLOW/NOT COMPLETE ERROR 
CHECK OPERATION WITH EXPECTED ERR 
;BAD SECTOR ERROR 
;REPORT ALL DISERER REC TES 


Shek aRpUP TRK ER ROeT CORRECT AFTER ABORTED WRITE 
:TRK IN ERROR? 


iNpaaee? , 
3" TRACK ADDRESS INCORRECT’ 
jEXPECTED VALUE 


8 rien HRT WRITE DATA TERMINATED WITH BSE” 
;EXIT 

RECTOR, IN ERROR? 

naEe IR WRYTE BATA ABORTE b WITH BSE" 


PEXPECTED V 
REAL VALUE 


SEQ 0128 


yt RK& FCTNL CTRL DIAG MACY11 30A(1052) 10-JAN-78 09:S7_ PAGE 129 SES 0129 


E.P1l 10-JAN-78 09:35 T6S MULTI-SECTOR DATA TRANSFER AND BSE 
7 R S$ ;EXIT 
£354 BS5338 opgate BE oP: ‘LOCAL LOOP TO BEGINNING OF TEST 
6929 O2e2e342 012737 O22350 001110 - MOV #3$, SLPERR :SET LOCAL LOOP ON ERROR 
bast 5835) 104416 , TSSINIT ;CLEAR SUBSYSTEM 
eS B43? 036252 Tgp RY,LRLOAD he ut REGS 
He ee Hi igre oe 


baa9 Bessee 7’ Odds IBUFE HIpUE tg BUFF ADDRESS 


0 

6338 022367 000 -BYTE OQ ; TRACK O 
a 022370 000312 312 i CYLINDER 312 

376 104417 TLOADRK ;LOAD RK REGS 
694 O38 74 104424 TWAT32 ;WAIT FOR INTERR 
28 022376 104002 ERROR 2 ;TO SLOW/NOT COMPLETE ERROR 

DO «104421 TCHKOP HE RATION FOR ANY ERRORS 

b BSeu0s 184054 ERROR 4 ;0R S, 6, 7, ig REPOR ALL ERRORS 


6948 Oe2e404 4437 042636 JSR R4Y, GENCOM ; COMPARE DATA 


a Oee4ie Tosals ERROR 18 BO EP PURSTE BARRE 
4 


6 

6 022420 013700 001634 MOV ERRLMT, RO GET ERROR LIMIT 

6955 Oee4¥e4 005300 64S: DEC RO ;DECREMENT COUNT 

6958 040000 40000 

6959 O22e436 000402 BR oR oes ;NO phone ERRORS on 

a ee Bre" i fc 

4 44 6SS$: 

poes peeuag inal Ld 042636 4$: 2097 R4Y, GENCOM ;CLEAR IBUFF 

6967 . 

6 4 4437 036252 Jar R4, LRLOAD tR ae - bins 

Es nee oy 

6971 Oee46s4 070414 IBUFF  TBUFF rt *BUFF ADDRESS 

697, 2 S - BYTE 8 i PECTOR 0 

P 7 .BYT: CK 

aoe 0 00031 312 ;CYLINDER 312 

cee pee tay ieee AB PSPC ayer 

6978 Bsa47e iBone ERROR 2 ;T0 7 Fors EO MPLETE ERROR 
6980 Oe2e500 104422 TCHKWE ;CHECK OPERATION WITH EXPECTED ERROR 


6981 S02 000 
698e BS8e04 800100 BSERR ;BAD SECTOR ERROR 


| 
egey 26458 Bovus? 042636 55R 3S GENCOM ‘LonfEROE DATA COMPARE 
| 
| 


Qn 


r— 


art vy FCTNL CTRL DIAG 
Pil 78 O09: 


6983 


rites RTE Shh Rie 


SII NEO OSS SSS OSS KK 


dee810 


02 
Oeebb4 
022666 


oOo ~~ 
4 


Senne 
ror 


NNN 
NN 


2 22 
£ OfE we 
= 


N10 


MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 130 SEQ 0130 
Tés MULTI-SECTOR DATA TRANSFER AND BSE 
0 
ERROR 4; OR S,6,7 ;REPORT ALL DISCREPANCIES 
ISR R4, GENCOM ;COMPARE DATA AGAIN 
100000 
Bee 5 + NO MT SCORPARES 
ERROR rt : NO ODAT Fret ERROR 
MOV ERRLMT,RO ;GET ERROR LIMIT 
66S: DEC RO : DECREMENT COUNT 
BEG 67s ‘AF Seno - 
JSR 4, GENCOM NUE DATA COMPARE 
BR 67S ms MORE ERRORS - EXIT 
ERROR 16 hy sd NEXT ERROR 
BR 66S LOOP 
67$: 
$: 
7 ee a ee ee ee ee et ee 
; TEST FORMR 
1 a FORMAT CYLINDER. 31 gp RACKS 0 AND 1 IN 26 SECTOR FORMAT. 
1% MAKE SURE NO E T. READ SECTORS 0-25 AND MAKE 
is SURE DAT Meee’ ORS fot OCCUR. 
« RERKRKKRHKRERKASRSRKRESRERAKERARE RARER RRARERERARARRARRAEKARKAKARARERELAKE 
‘cere SCOPE 
#1,STIMES ; ITERATION 
CLR RO + APP TRACK COUNTER 
MOV #1$, SLPERR ?SET LOCAL LOOP 
1$: 
TSSINIT ;CLEAR SUBSYSTEM 
ERROR 3 :BAD INIT ERROR 
MOV DRVNUM L.cs2 LOAD DRIVE NUMBER 
MOV WRHEAD,L.CS1 TO WRITE HEADER 
BIS OTYPE L ES) :SET ORV T 
MOVB RO toOT" *LOAD DESIRED TRACK FROM TRACK COUNTER 
MOV sOBUFF,L.BA *LOAD BUS ADDRESS 
MOV #-102,0.WC : WORD COUNT 
MOV #312, L.DCYL : CYLINDER 
JSR R4, GENCOM ;BUILD_ HEADER 
1200 ?WITH BSE FLAGGED 
TLOADRK ;LOAD RK 
TWATLi2 :WAIT FOR INTERRUPT 
ERROR 2 ?TO SLOW/NOT COMPLETE ERROR 
TCHKOP ;CHECK_ OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7 ;REPORT ALL ERRORS 
SCOP1 ;LOCAL LOOP TO 1$ 


a0 


R6KE.P11 
7039 

7040 022670 
7041 Oeeb7e 
oe 022674 
rea teehee 
7OMe O2e70e 
7047 022710 
704 2710 
704 O28712 
7050 essoiy 
and tf 
res terres 
7054 e724 
7055 O2e7. 
7056 Qee7e 
7087 0227 
7058 

70539 022732 
7060 

7061 022736 
7062 Oee740 
7063 Oee74e 
7064 

7065 d2e744 
7066 Oce 
7067 

7068 022750 
70693 

7070 022752 
7071 OQee7S6 
7072 Oee2760 
7073 O2276e 
7074 

707S 022764 
7076 

7077 

7078 

7079 

70 

7081 

708e 

7083 

7084 

7085 

7086 

7087 022770 
7088 Oee77e 
ee Heme 
7091 

7092 


023004 
7093 023010 
7094 O2201e 


005700 
00100e 


00 
735 
012737 


104417 
104424 
104002 


104421 
104004 


104415 
022700 
001402 
00S200 
000754 
005037 


104003 


004437 
000123 
177400 


CZR&EKEO RK& FCTNL CTRL DIAG 
C2 10-JAN-78 09:35 


022710 001110 


036eS2 


00i606 


000024 


001676 


000012 


036252 


MACY11 30A(1052) 
T66 


001262 


11 


3$: 


4$: 


10-JAN-78 09:57 
FORMAT TEST 
TST RO 
BNE es 
INC RO 
BR 1$ 
: CLR RO 
MOV #1135$,SLPERR 
3$: 
TSSINIT 
ERROR 3 
JSR R4, LRLOAD 
RDDATA 
-400 
IBUFF 
.BYT 0 
-BYTE 0 
312 
MOVB RO,L.OS 
TLOADRK 
TWAT32 
ERROR 2 
TCHKOP 
ERROR 
SCOP 1 
CMP #24,RO 
BEQ 4g 
INC RO 
BR 3$ 
CLR REFMT 


Bil 


PAGE 131 


sR au ZERO? 
BUMP COUNTER 
; LOOP 


;CLEAR SECTOR COUNTER 
;SET LOCAL LOOP ON ERROR 


;CLEAR SUBSYSTEM 
;BAD INIT ERROR 


;LOAD “L” REGS 

; RDDATA 

;-400 WORDS 

;IBUFF IS BUFF ADDRESS 
:SECTOR O 


; TRACK O 
;CYLINDER 312 


;LOAD SECTOR COUNTER INTO DESIRED SECTOR 


;LOA RK REGS 
WAIT FOR INTERRUPT 
:T0 SLOW/NOT COMPLETE ERROR 


;CHECK OPERATION FOR ANY ERRORS 


4 ;0R 5S, 6, 7, 10 ;REPORT ALL ERRORS 


-SBTTL ##WRITE CHECK TESTS 
1s wt emmeagl 05 oe oy 7 emma cnancra enc etateitataiat, 


; ATE 


+8167 


WRITE-CHECK 


ere wey te INDER 31 


FE NCHECK St 


PRROR “OdcuRS. 
= SE 36 JE 36 38 3 2 36 A A 2 A A 0 2 a a a a a aa a 


#10.,STIMES 
3 
R4, LRLOAD 


;LOCAL LOOP TO 3$ ON ERROR 
sL Bat aire READ? 

‘BURP SECTOR COUNTER 

LOOP 


;CLEAR REFORMAT SWITCH 


WITH NO ERROR 


TRACK 0, SECTOR O WITH A KNOWN PATTERN. 
400 WORDS. MAKE SURE NO 


-DO 10. ITERATIONS 
tALEAR SUBSYSTEM 
:BAD INIT ERROR 
;LOAD “L” REGS 
: TA 


:=-400 WORDS 


SEQ 0131 


Cll 


CZR&KEO RK& FCTNL CTRL DIAG MACY11 30A(10S2) JAN-78 :S7 132 
C2REKE.P11 10-JAN-78 09:35 PA Ose PE ANE Ce WET No ERSBR =s0 Clee 
7095 023014 072414 OBUFF ;OBUFF IS BUFF ADDRESS 
7037 Bean? 09 BYTE £ FREER 
000 312 :CYLINDER 312 
437 042636 ISR R4, GENCOM : GENERATE DATA 
ge BSshse rantan eS 2 : OOP RN 2 
023030 o00400 400 :400 WORDS 
023032 104417 TLOADRK ;LOAD RK REGS 
023034 104430 TWATS6 ‘WAIT FOR INTERRUPT 
023036 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
104421 TCHKOP HE RATION FOR ANY ERRORS 
BS 38u9 1Bu dea ERO 4 ;O0R 5, 6, 7, is ESEPORT ALL ERRORS 
023044 004437 036252 ISR R4, LRLOAD ;LOAD “L” REGS 
0001 WRTCHK : WRT CHK 
12 -400 '=400 WORDS 
4 072414 OBUFF 0B Frais BUFF ADDRESS 
BS3be8 ee :BytE 5 t PBRcK 0 
023060 000312 :CYLINDER 312 
104417 
Bsapeq | {Buda near pete Boa  ENTERR 
023066 104002 2 :TO SLOW/NOT EORPLETE ERROR 
70 104421 TCHKOP igre RATION. a PNY ERRORS 
953939 104004 ERHOR 4 ;ORS EEK PORT ALL E 
; seeswessinbenstesiSTeSbaSbaubateaineasttenstesoaetoaaeeeseeeess 
; ATES WRITE CHECK ERROR (PART 1) 


FHEOMH ODO VOLO ODO VE LUE ODO VOU Se ODD VT LO 


NNNNNNNNNNNNANNNNNSN NIN 
PAALAAALAALALALASALLAAAPPALEALLEALLAAARARARAARRARRA, 


. “Arte ¢ CYLINDER 312) TRACK 0, SECTOR O WITH ALL ZEROES. 
+x bate atarexcery ake TG 110 BAS’ on one Sf Fae FS Cow NG 
iS 
7k 
3 — em I ms 
iH 004000 100000 
+ T_FOR_EACH 
2 OF THES ENP Taunt TONS BAD TH Hat THe BUS ADDRESS 
is NO WORD COUNT IS CORRECT. 
JEU RU ennai eee 
023074 oop0004 iiss SCOPE 
023076 012737 oo0012e o01262 MOV #10. STIMES D0 19. ITERATION 
023104 012700 oo00001 MOV #81T0,R iE ngcueY Te chet? RO_FOR 
47 023110 104416 TSSINIT ;CLEAR SUBSYS 
48 Oe3lle 104003 ERROR 3 ?BAD I T ERRO 
48 023114 004437 o42636 JSR R4, GENCOM + BENERA E Aree ALL O’S 
SO 023120 o00001 1 


CZR6KEO RK6 FC 
CZR6KE.P11 


S4Y 023130 


NNNNNNNNANNNNANNNNNN NNN NNN ANNAN NANNY 


NNNNANNANNNN 


m 


7201 
7e0e Oe3eS4 


023256 
7204 023260 
023262 


TNL CTRL DIAG 
10-JAN-78 09:35 


036252 


036252 


036eS2 


jinnt 1 
104424 
104002 
ones 
00000 
000004 
000000 
104004 
104415 


MACY11 30A( 1052) 
T70 


023214 001110 
072634 


10-JAN-78 09:57 PAGE 133 
WRITE CHECK ERROR (PART 1) 


400 
JSR 
WRDATA 
OBUPF 
ere 
33 


TLOADRK 
TWAT ae 
ERRO 


TCHKOP 
ERROR 


JSR 
WRTCHK 


TCHKOP 
ERROR 


SCOP1 
MOV 


MOV 
TSSINIT 
ERROR 


TLOADRK 
TWAT32 
ERROR 
TCHKWE 
WCKERR 
ERROR 
SCOP1 


R4, LRLOAD 


0 
0 


HY ;OR S&S, 6b, 7, 
R4, LRLOAD 


4% ;OR S, 6, 7, 


#1$, SLPERR 
RO, OBUFF +220 


3 
R4Y, LRLOAD 


2 


4; OR S,6,7 


; LOAD al REGS 


eee Burr ADDRESS 


tH 312 
MBI Ee sd ESET re ERROR 


“CHECK OPERATION FOR ANY ERRORS 
{6 ;REPORT ALL ERRORS 


raRTG “L” REGS 


tog a Burr ADDRESS 
;SECTO 


RPK 312 


;LOAD RK REGS 
walt FOR_INTERR 
TO SLOW/NOT EOMPLETE ERROR 


CHECK OPERATION FOR ANY ERRORS 
io ;REPORT ALL ERRORS 


LOCAL 1.00 LOOP ON WRITE CHECK 
T IN BUFFER 

em ee fi 

iB IN ai ERROR 

fash He 

WORDS 
t OBUFF IS BUFF ADDRESS 
CTOR O 
TRACK 0, 312 
;LOAD RK REG 
WAT FSR INTERRU 

'T0 SLOW/NOT EOMPLETE ERROR 

;CHECK OPERATION WITH EXPECTED ERROR 

;WRITE CHECK ERROR 

;REPORT ALL DISCREPANCIES 


;LOCAL LOOP ON ERROR TO 1$ 


SEQ 0133 





R&KE . P 


7ele 


ata 
ENE 


33 


ea pane 


iw 
Ww) 


3 


ye a oP 


Run Promouae feu 
& REVERE 


RB 
eee 
noe 


023516 


enero, rt FCTNL CTRL DIAG 


10-JAN-78 09:35 


Oe 
006300 
000637 


100000 


MACY11 ——" 10-JAN-78 09:57 as - SEQ 0134 


072642 
001450 


061434 


177513 
001450 


001204 


WRITE CHECK ERROR (PART 


NOTE: THE WORD count Boone ES AN BE EITHER OF THREE 
VeLUES BE CORRECT. ane BIFFE NCE 1§ CAUSED BY WHEN THE 


: AND N 
: (CE OCCURRED. IF IT OCC D ON THE FIRST WORD OF A E 
: NPR CYCLE, WC ope WILL Wg PAST RE THE E ACTUALLY 
: OCCURRED. IF WCE UR A SINGLE CYCLE OR THE LAST 
: NPR CYCLE OF A DOUBLE cycle anit AND BA CONTENTS ARE ONE PAST 
: THE ACT WORD WHERE THE ERROR WAS. IN SOME CASES, WC AND BA 
: CAN BE YORE” PAST RE ERROR WAS AND STILL BE ACCEPTABLE. 

CMP T.BA, SOBUFF+222 ;CHECK BA HALT AT PROPER PLACE 

BEQ 2s YES-SKIP 

BHI 65 HE TO HI - SKIP 

MOV #£M11,EM10N INC CT BA” 

MOV sOBUFF +222 srecid, -GOOD VALUE 

MOV T.BA, SREGIL VALUE 

MOV #OPER41, DFO10A ITE CHECK ABORTED WITH WCE” 

ERROR 10 
2s: CMP T.WC, #-267 ;CHECK WORD COUNT AT CORRECT VALUE 

BEG 3$ : YES-SKIP 

BHI 7§ :IF HIGHER SKIP 

MOV #—M10,EM10N ?“ INCORRECT WC” 

MOV #OPER4I DF 010A :“WRITE CHECK ABORTED WITH WCE” 

MOV #-267, SREGI *GOOD VALUE 

MOV T.WC, $REGI1 :ERROR VALUE 

ERROR 1 

BR 3 ;EXIT 
6S: CHP I, .BA, #OBUFF+226 ; TEST IF BA AT HI SIDE 

MOV #EM11,E ha 

nov ORUFE S226, ON srecibs = GO SACLE 

MOV ROPERS I DFOIOA ;"“WRITE VOHECK ABORTED WITH WCE” 

ERROR 10 
7S: CMP T.WC, #-265 ;TEST IF WORD COUNT AT HI SIDE 

BLOS 3$ : YE me akie 

MOV #£M10, EM1ON ;SE ABORTED 

MOV HOPER4I DFOIOA ;"WC ABOR TED WITH WCE” 

MOV §-26 $REGIO :GOOD V 

MOV e 48 REGI1 : ERROR VACHE 

ERROR 1a” 
3S: SCOP1 ;LOCAL LOOP ON ERROR TO 1$ 

BIT #BIT15,RO ;BIT 1S SET? 

BNE 4g YES-EXIT 

ASL RO SHIFT ERROR BIT 

BR 1$ LOOP 


4§: 
= REKRKKRKREKRERAK KALA RAARSARHSA RRA AARARAKARKARAAAARAA AAA RE RAHARAEK 
ikTEST 71 WRITE CHECK ERROR (PART 2) 


cgneneo RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 135 SES 0135 


R6KE.P11 10-JAN-78 09:35 T71 WRITE CHECK ERROR (PART 2) 
7263 ;* 
7264 1 WRITE CYLINDER 312, TRACK SECTOR O WITH 17777 
7265 tH IN ALL WORDS. WRITE CHEC “? CYLINDER 31 12, TRACK 0, 
726 ie SECTOR 3 WITH THE SANE DAT corr oH WORD’ 120 HAS 
3eb7 i ONE OF THE FOLLWOING C oe 
7269 1% 177776 177757 177. 167 
7270 1 177 177737 aaa : aaa 
7e71 1 177773 177677 158 
7e7e i 177767 177577 173777 437555 
7274 : MAKE WRIT often K ERROR S T FOR EACH 
7275 1 OF CONF IG Ons NS AND THA THE BUS ADDRESS 
7276 i AND WORD COUN 
7278 H « LEKKKARREKKRRARAAARAARAARRRARKERERAARRRRARRARRAKARAAAARAARHRARAAAE 
72739 023516 o00004 +4171: SCOPE 
7280 Oe 20 012737 000012 001262 MOV #10. ,STIMES :D0 10. Q. ITERATIONS 
7e81 12700 177776 MOV #177776, RO ?ZoaD OR CAUSING WRITE CHECK ERROR 
5585 o2 104416 TSSINIT ; CLEAR YSTEM 
7284 023534 104003 ERROR 3 :BAD INIT ERROR 
7285 Ge36 4437 042636 ISR R4, GENCOM ;GENERATE DATA 
7286 4 7 ? Ab 1’S 
g 7 023544 o00400 400 400 WORDS 
7289 023546 004437 036252 ISR R4, LRLOAD en “L” REGS 
7290 0235 0123 WROATA :WRDATA 
7291 023554 177400 -400 :=400 WORDS 
72 3256 072414 OBUFF :OBUFF_ IS BUFF ADDRESS 
72 000 “BYTE O :SECTOR O 
7294 3561 000 BYTE 0 : KO 
2 3 023562 000312 31 :CYLINDER 312 
7297 3564 104417 TLOADRK ;LOAD RK REGS 
7298 35) 104430 TWATS6 :WAIT FOR INTERRUPT 
7299 023570 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
? 72 104421 TCHKOP CHECK OPERATION FOR ANY ERRORS 
7302 053255 104004 ERROR 4 ;ORS, 6, 7, id ;REPORT ALL ERRORS 
7304 023576 004437 036252 ISR R4, LRLOAD ;LOAD “L” REGS 
7305 Ge3606 Q131 WR TCHK ? WRT CHK 
73 17740 -400 ?-400 WORDS 
7307 023606 072414 OBUFF :OBUFF IS BUFF ADDRESS 
7308 023610 000 “BYTE O :SECTOR O 
7309 023611 000 “BYTE O : TRACK O 
7310 023612 o003ie2 312 :CYLINDER 312 
7312 023614 104417 TLOADRK ;LOAD RK REGS 
7313 Oe3616 104424 TWAT32 :WAIT FOR INTERRU 
gai4 023620 104002 ERROR 2 ?TO SLOW/NOT ERRPLETE ERROR 
7316 O23622 104421 TCHKOP “CHECK OPERATION FOR ANY ERRORS 
7317 023624 104004 ERROR 4 ;ORS, 6, 7, 10 ;REPORT ALL ERRORS 


1l 


O RK6 FCTNL crm OF O16s.. MACY11 30A8(1052) 10-JAN-78 09:57 PAGE 136 SEQ 0136 
-Pll 10-JAN-78 0 T71 WRITE CHECK ERROR (PART 2) 


023626 104415 SCOP1 LOCAL LOOP TO START OF TEST 
023630 012737 023636 001110 MOV #1S, SLPEAR ;SET LOCAL LOOP 
010037 072634 1S: Vv RO, OBUFF +220 ;PUT FF TO CAUSE WCE 
Beate Igss76 TSSINIT ?CLEAR Rep dy STEM 
44 1 3 ERROR 3 :BAD INIT ERROR 
437 036252 ISR R4, LRLOAD L “L” REGS 
Bs3ecs Bo0131 URI CHK SHR CHK 
023654 177400 -400 400 WORDS 
023656 072414 OBUFF  OBUFF IS BUFF ADDRESS 
Ge 000 “BYTE O :SECTOR O 
3661 000 “BYTE O : TRACK O 
023662 000312 312 ‘CYLINDER 312 
023664 104417 TLOADRK ;LOAD RK REGS 
023666 104424 TWAT32 walt FOR INTERR 
023670 104002 ERROR 2 TO SLOW/NOT ERNPLETE ERROR 
023672 Lous 2 TCHKWE omen OPERATION WITH EXPECTED ERROR 
74 ooo0 
04 WCKERR ;WRITE CHECK ERROR 
923706 000000 
702 104004 ERROR 4; OR S,6,7 ;REPORT ALL DISCREPANCIES 
023704 104415 SCOP1 ;LOCAL LOOP TO 1S 
: OTE: THE WOR Ss TTHER f THREE 
VALUES ANG BE CORRECT ine BIPFERENCE 18°C CAUSED B 
: WCE OCCURRED. IF IT on THE FIRST WORD OFA ie 
: NPR CYCLE, WC BA wie TWo T WHERE THE ERROR ACTUALLY 
: OCCURRED. IF WCE oar ED Pe ic io NPR CYCLE OR THE LAST 
: NPR CYCLE OF A CONTENTS ARE ONE PAST 
: THE ACTUAL WORD Of lane ._IN CASES, WC AND BA 
: CAN BE THREE PAST e ek WAS AND STILL BE ACCEPTABLE. 
023706 023727 O01S44 072636 CMP T.BA, SOBUFF+222 CHECK BA HALT AT PROPER PLACE 
023714 OO01416 BEQ 2s Yee 
Beeris at0s mt eth 
7 12737 oS446S 001450 MOV #£M11,EM10N a Ne R cr B 
0237 012737 072636 O0120e MOV HOBUFE + seee SREG1 j 6000 V 
023734 013737 001544 001204 MOV Egil BQ Vat 
Gea7ae O1e7 051101 061434 MOV nPERSI, 010A ITE HECK ABORTED WITH WCE” 
104010 ERROR 10 
023727 OO01S4¥2 177511 2S: CMP T.WC, #-267 ;CHECK WORD COUNT AT CORRECT VALUE 
peared bic a? Pate 
7 1010 HI ‘Y GHER - SKIP 
023764 012737 oS4440 001450 MOV #—M10, EM1ON j INCORRECT we” 
023772 012737 O51101 061434 MOV #OPER41 , DFO1OA WRITE acteck ABORTED WITH WCE” 
40 012737 177511 OOle0e MOV 8-267 7,SREGI 0 'G000 V LUE 
024006 013737 O001542 o01204 MOV T.WC, $REG ? ERROR VALUE 
024014 104010 ERROR 10 
024016 oo044e2 BR 3$ sEXIT 


Se yh RK& FCTNL CTRL DIAG 


CZR6KE. 
7375 
7376 
7377 


5358 


409 


NN 
Prez? 


ae hae be ae ae pe Pm ne ne 
—OWONOU CWO: 


NSNNNNNANY 
SELCSLLESCL£CL£&£ 


7420 


Pll 
024020 
Oe402e6 


Uist £ 
ronmwo 


ow 
ofr 


024162 


024210 


10-JAN-78 09:35 
athe oois44 


1014 
127. 4440 
12737 1101 
Bt 737 177513 
S42 


O67 08 100000 


000637 


000004 
O01e737 oo000ie 
104416 
104003 


at 042636 
000400 


004437 036252 


104417 
104430 
104002 


104421 


H1l 
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072642 


ae Bist 


061434 


177513 


001262 


WRITE CHECK ERROR (PART 2) 


6$: CMP T.BA, #OBUFF+226 ; TEST IF BA AT HI SIDE 
BLOS 7 i YES SKIP 
MOV Hate EM1ON T ESSA 
MOV Cte by srecio ehege “WALUE 
MOV 
MOV roa, ne Spices sOURITE CHECK ABORTED WITH WCE” 
ERROR 10 
7$: CMP T.WC, 8-265 ;TEST IF WORD COUNT AT HI SIDE 
BLOS 3$ i YES KIP 
MOV roree EM1 doa 
MOV HOPE 4 H10A 3c ORTED WITH WCE” 
MOV #26 $REG1O :GOOD VALUE 
MOV eae : ERROR VALUE 
ERROR 
3$: SCOP1 
BIT #BIT1S,RO ;BIT 15 SET? (ALL PATTERNS TESTED) 
BNE 4§ : YES-EXIT 
ASL RO :SHIFT FOR NEXT TEST 
BR 1$ LOOP 


4$: 
9-3-3636 36 3 3 3 0 3-3 363 9 J 9 9 a a 
7e WRITE CHECK OF PARTIAL SECTOR 


rh 
’ 
2% 
SPL RIE 2 fal PE My gE i oP 
1} DIPFEREN? THAN BATA OW DISK,” RAKE SURE 

i* WRIT GHECK MERROR DOES NOT SET. 

TTT titi ti titi tt iti tttitittitititttitititiiiilirice cs ry ey See 

2: SCOPE 
MOV #10. ,STIMES 


+ 
Ur: x 
4 


;;D0 10. ITERATIONS 
TSSINIT :CLEAR SUBSYSTEM 
ERROR 3 :BAD INIT ERROR 
JSR R4, GENCOM ;GENERATE DATA 
7 ‘ALL 1°S 
400 :400 WORDS 
JSR R4, LRLOAD ;LOAD “L” REGS 
WRDATA : A 
-40 ?=400 WORDS 
OBUFF :OBUFF IS BUFF ADDRESS 
“BYTE O :SECTOR O 
"BYTE O : TRACK O 
312 :CYLINDER 312 
TLOADRK ;LOAD RK REGS 
TWATSE WAIT FOR INTERRUPT 
ERROR 2 ‘TO SLOW/NOT COMPLETE ERROR 
TCHKOP ;CHECK OPERATION FOR ANY ERRORS 


SES 0137 


yt ’ FCTNL CTRL DIAG 
CZ2R6K 


i ss 


6KE.P 10-JAN-78 09:35 
7431 O24212 104004 
7432 
e433 024214 005037 072636 
7435 024220 004437 036252 
mize Qeusey O01) 
m3 Geueag O7euis 
7440 Oeue33 000 
owl Oe¥234 000312 
7443 024236 104417 
7444 Ce4e40 104424 
puis Oe4e42 104002 
7447 Oe4e44 104421 
7448 Oe4e46 104004 
7449 
7450 
7451 
7452 
7453 
7454 
7455 
7456 
7457 
7458 
7459 
7460 
7461 
7462 
7463 
7464 
746S 
7466 
7467 
7468 
7469 
7470 
7471 Oe4eS0 o0o0004 
747e ODe¥eSe O1le737 ooooode o0l1262 
7473 Oete60 032737 OOO4OO OO01664 
oaoe Oe42e66 001043 
7476 O24%270 105037 024313 
oe Oe42 005037 024314 
7473 0243 443 036eS2 
7480 024304 000127 
7481 O24306 177676 
7482 024310 072414 
7483 Oe43le 000 
7484 024313 000 
748S 024314 000000 


MACY11 30A(10Se2) 
T72 


10-JAN-78 09:57 PAGE 138 
WRITE CHECK OF PARTIAL SECTOR SEQ 0138 


ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 


CLR OBUFF +222 

JSR R4Y, LRLOAD 5LOG8 “L” REGS 

WRT CHK Mt 

-110 est ta ROS 

OBUFF ;OBUFF_ IS BUFF ADDRESS 
-BYTE O ; SECTOR 0 

.eyYTte JG ; TRACK O 

312 ;CYLINDER 312 

TLOADRK ;LOAD RK REGS 

TWAT 32 ‘wart FOR INTERRUPT 
ERROR 2 TO SLOW/NOT COMPLETE ERROR 


TCHKOP 0K OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 


-SBTTL #*MAXIMUM DATA TRANSFER AND CONTROLLER TIME OUT 
[ey geese 


; ATE MAXIMUM DATA TRANSFER (PART 1) 
i N_ THE EIRST pass OF THE PROGRAM, THE HEADERS OF 
2 THe FIRST 4 CYLINDERS WRITTEN. THIS IS DONE TO 
i INSURE THE FORMAT IS CORRECT. 
: x ZERO OUT THE FIRST 258 CTORS_ OF OF THE DISK W 
1 ONE SECTOR WRITES. IS A SEEK TO. YLINDER ACK O. 
i ISSUE @ WRIT 4 ORE DATA T SFE ebbnlESteBs 
;% TIME GUT IS NOT gee CHEEK CYLINOER Kg, SURE. CON 
1 DISK ADDRESS BUS ADDRESS AND WORD COUNT. READ 
i EACH SECTOR tO MAKE SURE IT WAS WRITTEN CORRECTLY. 
1 NOTE: THIS TEST IS EXECUTED ONLY IF NO BAD SECTORS ARE PRESENT 
i IN THE FIRST 256 SECTORS ON THE PACK 
H = RRR RRR ARRAS RRR RKK KK KA RRR RARER ARAKKAKRRRRRAARARRRHRKLKKE 
$6173: SCOPE 
OV MES ;;D0 2 ITERATION Ss 
BIT aPPHT, OPTFLG steer! F FIRST PASS SWITCH SET 
BNE 24S YES - eKIP FORMA 
CLRB 215 sen ADDRESS POINTERS 
CLR 225 
20S: JSR R4, LRLOAD ;LOAD “L™ REGISTERS 
WRHEAD *WRITE HEADER 
-102 ?102 WORDS 
OBUFF ; OBUFF 1S BUFF ADDRESS 
-BYTE O :SECTO 
21S: ‘BYTE O :TRACK ADDRESS (VARIABLE) 
228: 0 CYLINDER O (VARIABLE) 


genenee RK& FCTNL CTRL DIAG MACY11 agi ee wg 09:S7_ PAGE 139 SEQ 0139 


6KE.P11 10-JAN-78 09:35 173 AXIMUM DATA TRANSFER (PART 1) 
7487 024316 004437 042636 ISR R4, GENCOM :G0 GENERATE HEADERS 
oy 024322 001200 1200 WITH BAD SECTOR ERRORS 
7490 024324 104417 TLOADRK L080 i RE 
7491 024326 104431 TWATLi2 :WAIT FOR INTERRUPT 
ou3e 024330 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
7494 geu3 104421 TCHKOP ;CHECK_OPERATION FOR ANY ERRORS 
ougs 334 104004 ERROR 4 ;0R S, 6, 7 :REPORT ALL ERRORS 
749 36 123727 024313 oo00002 CMPB 21$, #2 ;TEST IF LAST TRACK 
7498 4 001403 BEQ 235 YES - SKIP 
7499 346 105237 024313 INCB 21$ ELSE BUMP TRACK 
7500 024352 000752 BR 208 : LOOP 
7502 024354 105037 024313 23S: CLRB 21$ ;CLEAR TRACK POINTER 
7503 024360 023727 024314 000003 CMP 223, #3 TEST TF LAST CYLINDER WRITTEN 
7504 4366 001403 BEQ 24s" ty S - SKIP 
7505 024370 005237 024314 INC 225 *ELSE BUMP CYLINDER 
7508 374 900741 BR 205 > LOOP 
7508 024376 013737 O24410 O01110 24S: MOV 1$, $LPERR ;SET LOCAL LOOP ON ERROR 
g808 wa08 012703 ooo0400 1. MOV #400,R3 :SET COUNT FOR SECTOR CLEARING 
7511 410 104416 s TSSINIT ;CLEAR SUBSYSTEM 
7512 Oe44ie 104003 ERROR 3 :BAD INIT ERROR 
7513 Oe4414 004437 036252 ISR R4, LRLOAD :LOAD “"L” REG 
7514 Oe4420 000123 WRDATA sMADETS 
7515 Oewee 177400 -400 -400 WORDS 
7516 Oe44e4 072414 OBUFF ; OBUFF IS BUFF ADDRESS 
7517 OeY4 000 -BYTE 0 CTOR O 
7518 Oe44e7 000 “BYTE 0O TRACK rt) 
7519 024430 oo00000 0 ?CYLINDER O 
7521 oOe4432 104417 TLOADRK ;LOAD RK REGS 
eee 024434 104434 TWAT159 MaTT FOR INTERRUPT 
goes 024436 104002 ERROR 2 TO SLOW/NOT COMPLETE ERROR 
7525 oOe444O 104421 TCHKOP tome OPERATION FOR ANY ERRORS 
ope Oe4442 104004 ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
7528 =O24444 LO4415 SCOP1 ;LOCAL LOOP ON ERROR TO 1$ 
7529 =Oe4446 5303 DEC R3 :DECREMENT COUNT 

deus 12762 072414 oO00004 es: MOV #OBUFF,RKBA(R2) ;SET 

7531 4456 012762 177400 O00002 MOV #-400,RKWC(R2) AND WC AGAIN 
7532 O24464 005037 O01662 CLR INTSET *CLEAR INTERRUPT FLAG 
7533 dew70 013762 001626 000010 MOV DRVNUM, RKCS2(R2)’ ;SET DRIVE NUMBER 
7534 4476 012737 O00l23 036502 MOV aURDATA HOLD 
7535 ge¥s04 053737 001720 036502 BIS DTYP LD 
7538 024512 013762 O36502e o00000 MOV HOLD, cates (Re) ;D0 WRITE DATA 
7538 O24S20 104425 TWATYS ;WAIT FOR INTERRUPT 
7539 Oe4Se2 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
7541 O24S24 032762 o00200 o00014 BIT #BSE,RKER(R2)  ;BAD SECTOR ERROR? 
7542 Oe4S32e OO141S BEG 3$ :NO-SKIP 
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CZR6KE.P11 10-JAN-78 09:35 173 MAXIMUM DATA TRANSFER (PART 1) 

7543 g24534 932737 000200 001664 BIT BBSERPT, , OPTFLG yee IE BSE TO MANY HAS BEEN REPORTED 
7545 Oe4544 052737 O00200 001664 BIS #BSERPT, OPTFLG LAG 

ce4e 024s 012737 OS311i1 001360 MOV #0PRO17;EMIN ?SET MESSAGE 

ante BSye 093 025116 S$: oppor tu ug sob IRST eee Oren toe Sem Cee 
7549 ay CHECK FOR ANY OTHER ERRORS 

7550 O24Se6 3S: 

pees GSue%e ip4004 EeHKOP 4 50RS, 6, 7, IG TREPORT ALL ERRORS RRORS 
gee: 024572 104415 SCOP1 *Cobat LOOP TO 1$ (RESTART SECTOR CLEAR) 
7555 024574 005303 DEC R3 ;DECREMENT COUNT 

oe 024576 001324 BNE 2s :LOOP IF NOT ZERO 

75 024600 004437 036252 ISR R4, LRLOAD ;LOAD “L” REGS 

7559 Oe4604 000117 SEEK EEK 

7560 Dee 990000 0 '0 WORDS 

reek bevels ORE vie 9 Bebtomeer “omRess 

7563 Oe4613 000 "BYTE O ‘TRA ACK O 

gebe 024614 o00000 0 *CYLINDER O 

7566 O24616 104417 TLOADRK ;LO REGS 

7567 Oe4620 104423 TWAT16 Looe Fo FOR INTERR 

7568 Oe%6ee 104002 ERROR 2 46 SLOW/NOT ORBLE TE ERROR 
7569 005037 o01662 CLR INTSET ?CLEAR FIRST INTERRUPT 

7570 Dee 104421 TCHKOP ; CHECK OPERATION FOR ANY ERRORS 
7571 104004 ERROR 4 ;0RS, 6, 7 }jREPORT ALL ERRORS 

7ers Gewese ibcee CHER? = OL COS WBR Boned CTE hon 
7574 O24640 go4437 042636 JSR R4, GENCOM ?GENERATE DATA 

7575 De¥e4e g040 4006 :PATTERN 6, 1ST WORD REPEATED 
7578 4646 O004 400 ?400 WORDS’ 

ath ats 104416 seas TSSINIT CLEAR SUBSYSTEM 

7580 Oe4652e 104003 ERROR 3 :BAD INIT ERROR 

7581 Geub54 004437 036252 JSR R4, LRLOAD :LOAD “L” REG 

7 660 000123 WROATA ; WROAT 

7583 Oe%662e 000000 0 ?0 WORDS 

7584 O24664 o7e4i4 OBUFE , jOBUFF 1s BUFF ADDRESS 

7586 DSuees 000 “BYTE O PRAcK rh) 

7587 024670 oo0000 0 :CYLINDER O 

7589 024672 052737 o00020 001610 BIS #BAI,L.cS2 

7591 024700 104417 TLOADRK ;LOAD RK REGS 

7592 024702 104437 TWAT8S :WAIT FOR SECOND INTERRUPT 

7533 024704 104002 ERROR 2 ‘ELSE REPORT TO SLOW/NOT COMPLETE ERROR 
7595 024706 7S: 

7596 024706 104421 TCHKOP -CHECK OPERATION FOR ANY ERRORS 
7597 024710 104004 ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 


CZR6KEO RK& FCTNL 
-Pll 10- 


CZR6K 
7839 


024712 
4 


104415 


104421 
104004 


104415 


J Nye 09: 35 


000020 


0362eS2 


042636 


001634 


042636 


024762 
024762 
024762 
024763 
024763 


024763 


MACY11 39961082) 


000026 


000003 


64S: 


65S: 
138: 


Lil 


MAXIMUM DATA TRANSFER CBART 1) 


4$ 
#400,R3 ;SET COUNTER FOR READ-COMPARE LOOP 


SCOPI ; INTERNAL LOOP ON ERROR TO 
CLR 10$ ?CLEAR SECTOR AND TRACK VALUES 
CLR ibs :CLEAR CYL 
MOV 8S, SLPERR >SET 
BIC #BAI,L.cS2 :CLEAR BAI 
TSSINIT ;CL 
ERROR 3 iBRO INI 
ISR R4, LRLOAD 
RDDATA iREED B ATRY 
-400 ; DS 
IBUFF :INTO IBUFF 
-BYTE OO :SECTOR (VARIABLE) 
“BYTE O :TRACK (VAR 
sCYL 

TLOADRK LOAD RK REGS 
TWATYS GATT FOR INTERRUPT 
ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
TCHKOP “CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0R 5S, 6, 7, 10 ;REPORT ALL ERRORS 
SCOP1 ;LOCAL LOOP ON ERROR TO 8$ 
JSR R4, GENCOM ;COMPARE DATA 
100000 
400 400 WORDS 

138 ?NO MISCOMPARE-EXIT LOOP 
ERROR 15 
MOV ERRLMT, RO GET ERROR LIMIT 
DEC 9 DECR’ 
BEQ 65% 
JSR R4, GENCOM 
40000 
R 65S MORE 
ERROR 1 EPORT 
R 64S 
SCOP1 ;LOCAL LOOP TO 8S 
DEC R3 ;DEC_READ LOOP COUNT 
BEQ 14S :IF ZERO-EXIT 
INCB 10$ ;BUMP_SECTO 
CMPB 10$, #26 } FINISHED OR TRACK? 
BNE 9S NO-LOO 
CLRB i0$ ‘CLEAR SECTOR 
INCB 11$ ?BUMP TRACK 
CMPB 115, #3 i FINISHED WITH CYLINDER? 
BNE 9g -LOOP 
CLRB 11S CLEAR TRACK 


VALUE 
LOCAL LOOP ON ERROR 


;REPORT FIRST ERROR 


MENT a 
jphanghe DATA COMPARE 
RRORS - EXIT 


SEQ 0141 


CZR&6KEO RK& FCTNL CTRL DIAG 


CZR6KE. 


025110 005237 
025114 000715 


025116 


hh he Mh 


S55 SSRERRIIRI FERGIE 
ROO ENSPOeMENOTD KVOKoO 
g 


Pil 10-JAN-78 09:35 


024764 


ooo000e 
000620 
072414 
036252 


000020 


000200 
000200 
oo0200 
053111 
025610 


MACY11 a 10-JAN-78 09:S7 PAGE 142 SEG 0142 


001262 


001610 


000014 


001664 
001664 
001360 


MAXIMUM DATA TRANSFER (PART 1) 


INC 12$ ;BUMP CYL. 
BR 95 ; LOOP 
14S: 
. PETTITT TTT TT ttt ttt tt ritttititititiiiitititit ttt ttt) 
; REST 74 MAXIMUM DATA TRANSFER (PART 2) 
i ZERO OUT FIRST anuiee SECTORS OF THE DISK _W WITH 
te Bee a HRY TE er hex TRO Barf TRARSPER 
5 A ye Fo apoRESE ONTROLLER TIME 
: Ce Sy. ae ee 
i che 
1 a NOTE: THIS TEST IS EXECUTED ONLY IF NO BAD SECTORS ARE PRESENT 
1 i IN THE FIRST 256 SECTORS. ON ON THE PAC 
is CYLINDER 1456 D FOR R 
« RKESKEREREKREER EKER ERK RRERA ARR RRRR REESE RE KERR KARA AR ALARA KEE 
tera: vi #2, STIMES RATIONS 
TSSINIT + APPAR SUBST Sten 
ERROR ; BAD INIT E 
MOV #400. ,RO :SET COUNT BROR INTERRUPT WAIT 
CLR OBUFF’ 
ISR R4, LRLOAD ;LOAD_ "L” REGS 
WRDATA ATA 
OBUFF Sater is BUFF ADDRESS 
‘BYTE 0 i SECTO 
0 igh 0 
BIS #BAI,L.CcS2 SET 
TLOADRK 
1S: TWAT1S9 ina 7 FOR” FafeRR BT 
BR 2s RRUPT-SKIP 
BR 35 OATERRUPT SKIP 
2S: DEC RO ‘0 C WAIT COUNTER 
BNE 1$ 5 ZERO LOOP 
ERROR 2 O SLOW/NOT COMPLETE ERROR 
3S: BIT #BSE , RKER(R2? oe BSE SET 
BEQ ug :NO-SKIP 
BIT #BSERPT,OPTFLG ;TEST IF TO MANY BAD SECTORS REPORTED 
ENE :YES - aK IP 
BIS WBSERPT,OPTFLG ;SET F 
MOV #OPRO17/EM1N i SET MESSAGE 
ERROR 1 : FIRST 256 SECTORS NOT BSE FREE” 
12S: IMP 11% tEXIT 
4S: 


CZR6KEO RK& FCTNL CTRL DIAG 
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771 ‘ : 
71g Geseat 
' 

ooiy OSeseE 
7715 
o7ig 
771 
771 
77 
77 


77 

77 

77 

77 

7727 

77 

77 

77 

7731 

77 025322 
oe. 025324 
77 Qeascs 
4 

77 

7735 Dees 
77 0eS 
7741 OeS34e 
7742 OeS344 
7743 025345 
77 0eS. 
7745 

77 350 


7750 025356 
7751 025360 
ae 

rel Saiaee 
7785 025370 
7756 O0eS37e 
ree Beare 
ree Beare 


7765 O25420 
7766 OeS4ee 


104421 


137 


1pueg 
abe 
104421 
104004 


pase 
123 
000000 
072414 

ee 
ooo00n 


12737 
12700 
737 
104417 
104434 


03:35 
36476 
36476 


036252 


001662 


036252 


036252 


135143 
000621 
000020 


MACY11 30A(10S2) 
T74 MAX 


0eS302 
O0eS4S6 


072414 
001610 


13$: 


S$: 


N1ll 


10-JAN-78 09:57 PAGE 143 
IMUM DATA TRANSFER (PART 2) 


HKOP -CHECK OPERATION FOR ANY ERRORS 
ERROR 4 -OR S, 6, 7, 10 ;REPORT ALL ERRORS 
MOV LsTeYL,13$ ’ 
MOV teteyL! 14§ 


JSR R4, LRLOAD ;LOAD “L” REGS 


SEEK 
0 ;0 WORDS 
:0 IS BUFF ADDR 
“BYTE 0 :SEC O 
BYTE 0 :TRK O 
:CYL 632/14S6 

TLOADRK 

TWAT16 thet ° Fo FOR IN nTSTERAUP 
ERR 2 :TO SLOW/NOT BAPLETE ERROR 
CLR INTSET :CLEAR INTERRUPT FLAG 

TCHKOP ;CHECK_ OPERATION FOR ANY ERRORS 
ERROR 4 ;0R S, 6, 7 ;REPORT ALL ERRORS 

TWATSO ;WAIT FOR 2ND INTERRUPT 
ERROR 2 

TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
ERROR % ;0R S, 6, 7 REPORT ALL ERRORS 
ISR R4, LRLOAD jLO8D. “L” REGS 
CLEAR :CLEAR 
0 :0 WORDS 
0 :0 IS BUFF ADDRESS 

“BYTE 0 :$ CToR O 

‘BYTE O K 
0 ? CYLINDER 0 
TLOADRK ;LOAD RK REGS 
TWAT16 :WAIT FOR INTERR 

2 >TO SLOW/NOT EONPLETE ERROR 

TCHKOP ;CHECK_ OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7 ;REPORT ALL ERRORS 
ISR R4Y, LRLOAD ;LOAD_“L” REGS 
WRDATA fgets 
OBUFF ; OBUFF Fas BUFF ADDRESS 

“BYTE O ; SECT 

“BYTE O i PRACK 0 
0 ?CYLINDER O 
MOV #135143,O0BUFF  ;SET WORD FOR OUTP 
MOV #401. ,R0 :SET COUNT FOR UNTERRUPT WAIT 
BIS #BAI,(.cs2 :SET BUS ADDRESS INC INHIBIT 
TLOADRK LOAD RK REGS 
TWAT159 inAIT FOR INTERRUPT 


SES 0143 


cenenee RK& FCTNL CTRL DIAG MACYi1 30A(10S2) 10-JAN-78 09:57 PAGE 1 SEG 0144 


E.Pil 10-JAN-78 09:35 T74 MAXIMUM DATA TRANSFER (PART - 
7767 Seals? 000401 BR 6$ ;NO_INTERRUPT-BRANCH 
o2e8 426 000403 BR 7$ ; INTERRUPT-BRANCH 
7770 me 00S300 6S: DEC RO ;DEC_WAIT COUNT 
7771 4 00137 BNE S$ ;LOOP IF NOT ZERO 
aah 0eS434 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
7774 pee 7$: 
7775 OeS4 104421 TCHKOP CHECK OPERATION FOR ANY ERRORS 
seen OeS440 104004 ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 
7778 Oes44e 004437 036252 JSR R4, LRLOAD ;LOAD “L” REGS 
77793 Beale 000117 SEEK 
7780 4 000000 0 ;0 WORDS 
7781 OeS 000000 0 ;0 IS BUFF ADDR 
7782 O0eS4S4 000 -BYTE OQ ;SEC O 
7783 ee ooo .BYTE O ;TRK O 
7784 000000 14S: 0 ;CYL 63271456 
7785S 460 104417 TLOADRK ;LOAD RK REG 
a | 462 104423 TWAT16 ;WAIT FOR INTERRUPT 
778 464 104002 ERROR 2 ;10 SLOW/NOT COMPLETE ERROR 
ca: OeS466 005037 001662 CLR INTSET ;CLEAR INTERRUPT FLAG 
7790 472 104421 TCHKOP ; CHECK OPERATION FOR ANY ERRORS 
oe} 474 104004 ERROR 4 ;0R S, 6, 7 ;REPORT ALL ERRORS 

025476 104427 TWAT8O ;WAIT FOR SECOND INIT 

7794 + OeSS 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
7739S O0eS 1044e1 TCHKOP :CHECK OPERATION FOR ANY ERRORS 
os OessSO4 104004 ERROR 4 ;0R 5S, 6, 7 ;REPORT ALL ERRORS 
77398 004437 036252 JSR R4, LRLOAD ;LOAD “L” REGS 
hes 1 10S CLEAR sSLEOR 
7’ 14 0 ;0 WORDS 
7801 025516 000000 ;0 IS BUFF ADDRESS 
A 4 0eS 000 BYTE QO ;SECTOR O 
7 BS2 1 000 .6YTE O ; TRACK O 
ze e ooo0c0 0 ;CYLINDER O 
7 oessSe4 TLOADRK RK REGS 
7807 OeSSe6 1044e3 TWATIE ina FOR INTERRUPT 
pepe O0eS530 104002 ERROR 2 TO SLOW/NOT COMPLETE ERROR 
7810 Gess3e 104421 TCHKOP CHECK OPERATION FOR ANY ERRORS 
pelt 0eSS34 104004 ERROR 4 ;0RS, 6, 7 ;REPORT ALL ERRORS 
7813 5 004437 036252 JSR R4Y, LRLOAD ; LOAD “L.” REGS 
7814 S4e 000131 WRTCHK WRTCHK 
7815S S44 000000 0 Hi) WORDS 
ree RSee 072414 OBUFF j OBUFF IS BUFF ADDRESS 
781 i} 000 BYTE @Q 3 SECT OR O 
7818 OeS551 BYTE TRA 
7819 Oe5SSe g00000 0 ; CYL INDE 
7820 Oe55S4 052737 o00020 001610 BIS #BAI,L.CS2 :SET BAI FLAG 
eee) OesSbe O1e700 O0006e1 MOV #401. ,RO0 ;SET WAIT COUNT 





CZR&EKEO RK& FCTNL 


CZR6KE.P11 
7823 Oee579 
7 02S5S74 
Tee RRSETE 
7830 OeS5602 
7831 
fase ges 
7834 025606 
7835 
7836 025610 
7837 
7838 
78393 
7840 
7841 
7842 
7843 
7B4Y4 
4 us 
oBs 025610 
7848 OeS6le 
7849 
78S0 
7851 
78853 025632 
78S4 025636 
78sSS S640 
7 42 
78 S644 
7 O02S64S 
7853 O2eS646 
7860 
re 025650 
fabs Pesbee 
7864 
7865 02eS656 
As] 025660 
786 
7868 025662 
7863 025666 
7870 iA" 
7871 7. 
7872 74 
Ss maa 
fara posers 
7876 025704 
7877 02570 
7878 025710 


IDSsaNove OS! :35 


pad 
a 
03 


Bbr378 


104002 


104421 
104004 


ooo004 
012737 
10441 
dis 
13737 
004437 
000117 
000000 
a: 
000 
000000 
a 4 
iB 


104421 
104004 


oocoses 001262 


036476 OesSs+6 
036252 


001662 


036252 


Cle 


a 384 OSE) at PnUM DATA ccs papi 


TLOADRK 
ed a AB TORS SR 
BR 10$ INTERRUPT -SKIP 
eth. Hed 289 BEAD _£8P" 
ERROR 2 ;TO SLOW/NOT COMPLETE ERROR 


10S: 
TCHKOP *CHECK OPERATION FOR ANY ERRORS 


ERROR 4 ;0RS, 6, 7, 10 ;REPORT ALL ERRORS 


1$: 
 Seneneenennennenenseensqueseatesesnnensnennennasssnensenonsasee 
iATEST 7S CONTROLLER TIME OU 


t 
; 
-# 
1 i SEEK TO CYLINDER 632. upeeue P A RECALIBRATE AND DO NOT 
1 i WAIT FOR SECOND IN RR ISSUE A READ HEADER 
5 OF CYL N RO, TRACK O. MAKE SURE CONTROLLER TIME 
i CYLINDER 1456 IS USED FOR THE RKO7. 
NS nn ee ee 
aS. ,STIMES ; ; ITERATIONS 
TSSINIT APPAR’ s SUBSYS Ten 
ERROR 3 :BAD INIT ERRO 
MOV LSTCYL,1$ 
ISR R4, LRLOAD ;LOAD “L” REGS 
SEEK 
rh) WORDS 
0 :0 IS BUFF ADDR 
“BYTE 0 :SEC O 
-BYTE 0 ;TRK O 
1$: 0 :CYL 63271456 
TLOADRK ;LOAD RK REGS 
TWATI6 :WAIT FOR INTERRUPT 
2 ?TO SLOW/ OMPLETE ERROR 
TCHKOP ;CHECK OPERATION FOR ANY ERRORS 


ERROR 4 ;0R 5, 6, 7 ;REPORT ALL ERRORS 


CLR INTSET ;CLEAR_INTERRUPT FLAG 

TWATS8O MATT avy COND INTE T 
ERROR 2 OL 08 As § PLETE ERROR 
TCHKOP Ce K_OPERAT “4 FOR ANY ERRORS 
ERROR 4% ;O0R S, 6, 7 EPORT ALL ERRORS 


JSR R4, LRLOAD 5,088. “L” REGS 
CLEAR ; CLEAR 

0 ;0 WORDS 

0 30 IS BUFF ADDRESS 
-BYTE 0 ;SECTOR O 


SEQ O14S 


CZR6KEO RK& FCTNL CTRL DIAG 


CZR6KE .P 


ll 
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ale) 
000000 


1B4425 
104002 
104421 
104004 
004437 


000113 
000 


036252 


0 
000000 
104417 
104423 
104002 


004437 O0362S2 
es 


ieee 


1ga32 2 


MACY11 30A(10S2) 
T7S 


001662 
000190 9000000 


10-JAN-78 09:57 PAGE 146 
CONTROLLER TIME OUT 


.BYTE 0 
0 

TLOADRK 

TWAT16 

ERROR 2 

TCHKOP 

ERROR 4 ;0RS, 6, 7 
ISR R4Y, LRLOAD 
RECAL 

0 

OoyT a) 

BYTE 0 

0 

TLOADRK 

TWAT16 

ERROR 2 

ISR R4, LRLOAD 
RDHEAD 

0 

rn) 

-BYTE 0 

“BYTE O 

0 

TLOADRK 

TWAT2S 

ERROR 2 

TCHKWE 

a) 

CTOER 

ERROR 4; OR 5,6,7 
TSSINI 

ERROR 3 

CLR NTSET 

MOV #IE,RKCS1(R2) 
TWATSS 

ERROR 2 


SEO 0146 


; TRACK O 
;CYLINDER O 
LOA 
init T For iNfeRRuPT 
TO SLOW/NOT COMPLETE ERROR 


CHECK OPERATION FOR ANY ERRORS 
;REPORT ALL ERRORS 


;LOAD “L” REGS 
;REC AL 
0 WORDS 


I F ADDRESS 
ot 
CYLINDER 0 
iLO RK _REGS 

WAIT FOR INTERRU 
70 SLOW/NOT COMPLETE ERROR 
;LOAD “L” REGS 
; DHEAD 
;0 WORDS 
:0 IS BUFF ADDRESS 
;SECTOR O 
; TRACK O 
;CYLINDER O 
;LOAD RK REGS 

WAIT FOR INTERRUPT 
:TO SLOW/NOT COMPLETE ERROR 
;CHECK OPERATION WITH EXPECTED ERROR 


yreouer TIME OUT 
Y 
PERS 
IN 


ORT ANY DISCREPANCIES 
AR M 

ar 

T 


NT ENABLE 
FOR SECOND INT 


-SBTTL ##ERRORS DURING DATA TRANSFER 


+ ELLER EERE REE AERA ERK ERHK LRA A LRA RRA RRAEE 


i RTEST 76 


ISSUE A_SUBSYSTEM CLEAR. 
A SEEK TO CYLINDER e WITH BAD PARITY. 


LIMIT DETECT ON DATA TRANSFER 


ISSUE A RECALIBRATE. ISSUE 
ISSUE A DRIVE 


6KE.P11 
7935 
7936 
7937 
73 
73 026032 
73940 026034 
7941 
734%e Geb04e 
7943 026044 
paue 026046 
7946 Oeb0Se 
7947 4 
caus 
734 
73950 Oe6061 
7380 026062 
026064 
7954 O2e6066 
7398S 026070 
ogee 72 
738@ Oee07e 
739539 026100 
7960 
7961 nated 
oee5 6104 
796 
7964 026106 
7965 Oeblie 
7966 026114 
7967 R51 18 
73968 Oeb1 
7969 pee ish 
7970 Oeblee 
7971 Oeb1e4 
7972 Oeb6132 
7973 026134 
7974 026136 
7975 
7976 026140 
7977 Oebi4e 
7978 
79739 ~=O026144 
7980 026150 
7981 Oe61Se 
73 Bepia? 
798 138 
7984 Oe615 
7985 G?6160 
7986 
7987 026162 
7988 026164 
79839 026166 


000004 
012737 
104416 
104 


oO statat=t =} 
5tt8s 

£ 

_ 

N 


104003 


000 
000001 
104417 


104423 
104002 
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000003 061262 


036eS2 


001662 


036252 


000020 


036252 


MACY11 30A(1052) 
T76 


001616 


Ele 


LIMIT DETECT 


% CLEAR. ISSUE A WRIT 8 
;# TRACK 0, HEAD O. 

ar LIMIT * Qhotte BE THE BNL 
ii co 


MOV #3.,STIMES 
TSSINIT 
ERROR 3 


JSR R4, LRLOAD 
RECAL 

0 

BYTE 0 

BYTE 0 

TLOADRK 

TWAT 16 

ERROR 2 

CLR INTSET 
TWATBS 

ERROR 2 

TCHKOP 

ERROR 4 ;0RS, 6, 7 
JSR R4, LRLOAD 
SEEK 

BYTE 0 

BYTE 0 
MOV #PAT,L.MRI 
TLOADRK 

TWAT16 

RROR 2 

TSSINIT 
ERROR 3 
JSR R4, LRLOAD 
WRDATA 

-400 
OBUFF 

BYTE 0 

BYTE 0 

TLOADRK 

TWATIE 


10-JAN-78 09:S7_ PAGE 147 
ON DATA TRANSFER 


Md. OF 400 WORDS TO CYLINDER i, 
NCOMPLETE BECAUSE OF OUTER 
ERROR SET. 


L SEVURPS SES ENRSRERSRRRERDRERESRNaSESERSSARSEOnERERENNRNERONENENS 


;;00 3. ITERATIONS 


;CLEAR SUBSYSTEM 
;BAD INIT ERROR 


;LOAD “L” REGS 

;RECAL 

39 WORDS 

30 IS BUFF ADDRESS 
TOR O 


TRACK 0 
;CYLINDER O 


;LOAD RK REGS 
sary FOR INTERRUPT 
TO SLOW/NOT COMPLETE ERROR 
CLEAR INTERRUPT FLAG 
;WAIT FOR SECOND INTERRUPT 
; CHECK_OPERATION FOR ANY ERRORS 
;REPORT ALL ERRORS 
iEOPK “L” REGS 
EK 


WORDS 
IS BUFF ADDRESS 


-NOAWOOUWr 
m~<2mM m 


BS 
wH4o 


IN 


DO 4EKwHc 
- Oo 


EAR SUBSYSTEM 
BAD INIT ERROR 


;LOAD_"L” REGS 
;WROATA 

:-400 WORDS 

‘OBUFF IS BUFF ADDRESS 
:SECTOR O 

: TRACK O 

:CYLINDER 1 


; LOAD RK_REGS 
WAIT FOR INTERRUPT 
'T0 SLOW/NOT COMPLETE ERROR 


SES 0147 


ceneneo RK6 FCTNL CT 
CZR6KE.P11 


SRE 


: 


5 


fafstatatst=t=t=f=t=} 
Pb be be be pe be be ee 
WONT U CWO 


pi 


026170 
172 
174 
176 

026200 

026202 


a 
026276 
026300 
026306 
026310 


10-JAN- 
104422 


012737 
104002 


000004 
012737 


DIAG 
8 09:35 


036eS2 


ooo001 


000040 


000100 
001662 


060746 


000012 
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001616 


001574 


000000 


001372 


001262 


LIMIT DETECT ON DATA TRANSFER 

TCHKWE ; CHECK ag Taal WITH ERROR 
cman ;SEEK INCOMPLETE 

0 

ERROR 4 ;0R 5,6,0R7 ;REPORT ALL DISCREPANCIES 


TSSINIT ;CLEAR SUBSYSTEM 
ERROR 3 :BAD INIT ERROR 


3$: 
JSR RY, LRLOAD ;LOAD “L” REGS 
SELDRV :SEL DRV 
0 :0 WORDS 
0 :0 IS BUFF ADDRESS 
. BYTE 0 j SECTOR 0 
.BYTE 0 ; TRACK O 
0 :CYLINDER 0 
MOV #1,L.MR1 ;SET TO 3 STATUS PAIR 1 
TLOADRK ? LOAD RK R 
TWAT1E WAIT FOR INTERRUP 
ERROR 2 :TO SLOW/NOT ERAPLETE ERROR 
TCHKOP ; CHECK OPERATION FOR ANY ERRORS 
ERROR S «OA 6, 6, 7 REPORT ALL ERRORS 
BIT #S.HDHM, T.MR2 ino IF HEADS HOME 
BEQ 3$ NO - GET STATUS AGAIN 
TSSINIT CLEA SUBSYSTEM 
ERROR 3 > BAD INIT ERROR 
MOV #IE,RKCS1(R2) ;SET IE 
CLR INTSET ;CLEAR_INT FLAG 
penres 1° tWAIT FOR SECOND INTERRUPT 
BR es 
18: MOV #DHO16, OH2N ;"SUBSYSTEM CLEAR TO RESET LIMIT ERROR 
? ALLOWING HEADS TO RELOAD” 
ERROR 2 
2s: 


s eet eee ° 
; ATES PR MING ERRO > 

:% *tSsuE A SUBSYSTEM CLEAR. ISSUE 
£ A READ DATA OF 400 WORDS ON CYLINDER O, 
i TRACK 0, SECTOR 0. DURING READ ISSUE A 
is WRITE TO THE SPARE _R GISTER. MAKE SURE 


PROGRAMMING ERRO 
«06 63 aE HE AE He eH A aE SE SE EH HE HE a HE EH EE EERE EERE R 


130" SCOPE 
MOV #10. ,STIMES ;;D0 10. ITERATIONS 


efReK 


8047 


O RK6 FCTNL CT 


-Pll 


026364 
026366 


one 
026432 
026434 
026436 


10-JAN- 


104416 
003 


104417 


104004 


000004 
? 2737 

104416 
104003 


JU 4437 
a 


004437 


000000 


104417 
104430 
10400e 


e 09:35 


0362S2 


000001 000022 


oo000lie Oo01262 
042636 


036eS2 


MACY11 3084 105) } 


«he HC eC 


-JAN-7: che 5a” PAGE 149 


PROGRAMMIN 
TSSINIT ;CLEAR SUBSYSTEM 
ERROR 3 :BAD INIT ERROR 
JSR R4, LRLOAD ;LOAD TA REGS 
= ie ;RDDAT 
TBUPF eee Burr ADDRESS 
-BYTE QO ; SEC CTOR 
BYTE 0 aig 0. 
hy NDER O 
TLOADRK ;LOAD RK REGS 
MOV #1,RKSPAR(R2) ;WRITE SPARE REGISTER 
TWAT16 ;WAIT tee INTERRUPT 
ERROR 2 O SLOW/NOT COMPLETE ERROR 
eee. CHECK OPERATION WITH EXPECTED ERROR 
0 
PGERR ;PROG ERROR 
ERROR 4 ;O0R 5,6,7 ;REPORT ALL DISCREPANCIES 


‘ a a Eee a ee eee 
T 


A iT Te BB saree D Bs CONSISTING OF 177777 6 TO 
Buk auena Y’ Sa fe CTLIPER eal aR Pe 1) * es ORO. 


A READ fee TO TO CYLINDER 0. K 0, 
AN ECC HARD ERROR Bau ce 


HE ADO AND 
» SHAUUChanecucrtuccdustuenebulseesnoaasenansuaueeaneuass HHKEE 


+8100: SCOPE 


#10.,STIMES : DO.10. TERATIONS 
TSSINIT Ho UBSYSTEM 
ERROR 3 :BAD INIT ERROR 
ISR R4, GENCOM ;GENERATE DATA OF ALL ONES 
400 
JSR R4Y, LRLOAD $08 "L” REGS 
WRDATA 
OBUPF ‘ode F S BuFF ADDRESS 
-BYTE 0O ; SECTOR 
“BYTE O : TRACK oo 

?CYLINDER O 

TLOADRK ;LOAD RK REGS 
TWATS6 WAIT FOR INTERRUPT 

2 :T0 SLOW/NOT COMPLETE ERROR 


SEQ 0149 


CZR6KEO RKG FCTNL CTRL DIAG 


CZRO6KE. 


1 


MOO OMWM OO waxpaM 
fu = ob98= b= 080 - OO OGE 
he O00 VOW £ un ODS VRE 


ee ee ee ee ee ee ee a ee 


pesfececleclectectesleclectrelecteeleclecleclesteelseleclerlecccleelesleclietteleclerleeeelecleelscleeleeles teleelesteelencesiles 
MUNIN cE WIG) 
co Oe ULE WruH O.beD SHE WM—O DOVER LOWS Subs ve 


Pil 


BBE dg 


026444 


Oe 
OebS62 


10-JAN-78 09:35 


tB4d64 


004437 


ia 


conb88 


104417 


042636 


036eS2 


001662 
be oo0000e 


100000 
036252 


ooccooo 
taz 
1o4d62 


104422 


1o4004 
000402 


104421 
104004 


MACY11 30A( 1052) 


T100 ECC HARD 
ERBERP 4 ;OR S, 
ISR R4, GENCOM 
400 
JSR R4, LRLOAD 
Wi DATA 
-150 
OBUFF 
- BYTE “ 
6 
TLOADRK 
1$: TST NTSET 
BNE Be 
TST RKWC(R2) 
BNE 1$ 
ooo000 BIS #CCLR,RKCS1(R2) 
ISR R4, LRLOAD 
RDDATA 
-400 
IBUFE 
‘BYTE 8 
0 
TLOADRK 
TWATYS 
ERROR 2 
TCHKWE 
DCKERR! ECHERR 
RROR 4 ;OR 5,6,7 
BR 3$ 
2s: 
TCHKOP 
ERROR 4 ;0RS, 6, 7, 
38: 
‘TEST 101 
:% ISSUE at asyst Ten ot Ores 
: ISSUE A RECAL I 
1 PUT CONTROLL Ae IN 
:% OF CYLINDER O, TRACK O. 


10-JAN-78 09:57 PAGE 150 


, 1ST RE SRT ALTE RRoRsY ERRORS 


;GENERATE DATA OF ZEROS 


ihRDaTA “L” REGS 
-150 HORDS 
; OBUFF IS BUFF ADDRESS 
TOR _O 
TRACK On 0 
;START OPERATION 
iSHECK IF Pea as Ae HAS OCCURRED 


SOON. REPORT ERROR 
TEST IF UNPR’ S DONE 
NO - LOOP 


;CLEAR CONTROLLER (CROWBAR WRITE) 


:ROORTA REGS 


BUFF ae BUFF ADDRESS 


rt 
; 
;CYLINDER O 

tOATT EO FOR "a RTeRe yer 

;TO SLOW/NOT COMPLETE ERROR 
;CHECK OPERATION WITH ERROR 
;DATA CHECK AND ECC HARD 
;REPORT ALL DISCREPANCIES 
;SKIP TO EXIT 


-CHECK OPERATION FOR ANY ERRORS 
16 ;REPORT ALL ERRORS 


OB eK TO CYLINDER 632. 


R. 
on BUT Ro NOT WAIT _FOR SECON INTERRUPT. 
IAGNOSTI 


C MODE. ISSUE A READ HEADER 


CLOCK THROUGH SEEK 


SEQ 0150 


1 


CZR&KEO RK& FCTNL CTRL DIAG MACYL1 30A(10S2) 10-JAN-78 09:57 PAGE 151 SEQ 0151 
CZR6KE.P11 10-JAN-78 09:35 T101 ORIVE TIMING ERROR 
8159 ;% AND DRIVE CLEAR MESSAGES. TURN OFF DIAGNOSTIC MODE. 
8160 :% DRIVE TIMING ERROR SHOULD SET BECAUSE OF NO DATA 
8161 i TRANSISTIONS ON DATA LINE. 
Bibs orEsb2 ooo0c4 OT ag Oyama 3 eames tener gaa ee PERI Dans CEPTS AE 
g164 026564 012737 o0000S o01262 MOV #S. ,STIMES ;;D0 S. ITERATIONS 
8166 O26572 104416 TSSINIT ;CLEAR SUBSYSTEM 
B167 026574 104003 ERROR 3 ?BAD INIT ERROR 
8169 026576 437 036252 ISR R4, LRLOAD ;LOAD “L” REGS 
8170 Oebb 000117 SEEK : SEEK 
8171 Oc660 0000 0 :0 WORDS 
817e 026606 o00000 0 :0 IS BUFF ADDRESS 
817 9 10 000 -BYTE OO *SECTOR O 
8174 6611 000 ‘BYTE O : TRACK O 
B176 026612 000632 632 *CYLINDER 632 
8177 026614 104417 TLOADRK ;LOAD RK REGS 
8178 O26616 104423 TWAT16 *WAIT FOR INTERR 
8178 Oe 040) RROR 2 :TO SLOW/NOT ERAPLETE ERROR 
£180 Oebbe2 037 O01662 LR INTSET ?CLEAR_INT FLAG 
8181 04430 TWAT96 ?WAIT FOR SECOND INTERRUPT 
g18e 026630 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
8184 026632 437 036252 SR R4Y, LRLOAD ;LOAD "L” REGS 
8185 Cebb36 000113 RECAL : RECA 
giBe pSeeue 000000 70 1S BUFF ADDRESS 
8188 Oc6644 000 BYTE 0 :SECTOR O 
8189 O2664S 000 BYTE 0 : TRACK O 
8130 000000 ?CYLINDER O 
8192 O26650 104417 TLOADRK AD RK REGS 
8193 Oe6652 104423 THOTe hare FOR INTERRUP 
8134 026654 104002 ERROR 2 :TO SLOW/NOT ERA ETE ERROR 
8196 O266 004437 R4, LRLOAD AD "L” 
8197 OeeeeS pbd1ss ee RBNEAD va at Pap — 
8198 O26664 0000 0 ?0 WORDS 
8200 oseere BoD CBYTE 0 ‘01g ,gupr AooRESS 
8201 026671 000 “BYTE 0 TRACK 0 
8202 O26672 000000 0 ;CYLINDER O 
8203 026574 012737 OOODO4O O01b16 MOV #DMD,L.MR1 :SET DIAG MODE 
Be04 026702 104417 TLOADRK ‘LOAD RK REGS 
8206 026704 004437 036674 ISR R4, MCLOCK ;CLOCK CONTROLLER THROUGH SEEK 
B20? 026710 001062 1062 :AND CLEAR TO READ 
Be08 026712 oO0SO0b2 oD00e6 CLR RKMR1(R2) ;RESET DIAG MODE, LET RD HORS COMPLETE 
8211 O26716 104424 TWAT32 ;WAIT FOR INTERRUPT 
82l2 Oe6720 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
8213 Oe6722 104422 TCHKWE :CHECK OPERATION WITH EXP ERROR 
8214 Oe672e4 O10000 DTERR :ORIVE TIMING ERROR 


a 


5 tah RK& FCTNL CTRL DIAG 
CZR6 10-JAN-78 09:35 


KE.P1l 


026726 
026730 
026732 


00 
0e700e 
027004 


027006 


027044 


000000 


104416 
104003 
012762 
00S037 


104437 
02 


104004 


000004 


104003 
inne 


000 
000000 
104417 


104423 
104002 


000100 
001662 


036252 


000012 001262 


036252 


Jle2 


;REPORT ALL DISCREPANCIES 


;CLEAR SUBSYSTEM 

:BAD INIT 

;SET INTERRUPT ENABLE 
;CLEAR INT FLAG 


;WAIT FOR INTERRUPT FOR END OF RECAL 


;LOAD “L” REGS 
te R 


iO Wd ORDS 
:0_IS BUFF ADDRESS 
; OR O 


CYLINDER 0 


;LOAD RK _REGS 

;WAIT FOR INTERRUPT 

TO SLOW/NOT COMPLETE ERROR 
CHECK OPERATION agen ANY ERRORS 


MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 152 
T101 DRIVE TIMING ERROR 
= 
ERROR 4 ;OR £,6,7 
1$: 
TSSINIT 
ERROR 3 
ooo0c0 MOV #IE,RKCS1(R2) 
CLR INTSET 
TWATSS 
ERROR 2 
JSR R4, LRLOAD 
CLEAR 
0 
0 
-BYTE 0 
‘BYTE 0 
a) 
TLOADRK 
TWATI6 
ERROR 2 
TCHKOP 
ERROR 4 ;0RS, 6, 7 


-SBTTL ##ERROR FORCING IN DRIVE 


:REPORT ALL ERROR 


s REKKRKR KAA RRRR ARERR LAA RR RA RRA R ARERR A AAAS RE RRRAAARALA AAA LE RERAE 


; ATEST 102 INITIALIZE CLEARING SACK 
: ISSUE A SUBSYSTEM CLEAR. ELECT AN AVAILABLE 
; DRIVE. ISSUE A SUBSYSTEM PUT CONTROLLER IN 
x DIAGNOSTIC . IS SEL LECT COMMAND 
* MESSAGE ID = 3 AND DRIVE SELECTED = 0. CLOCK THROUGH 
1 PHASE ADDRESS 6. TURN OFF DIAGNOSTIC MODE. MAKE 
: SURE UNIT FIELD ERROR DOES NOT SET. 
hie c 2g Be mUpnencas: ppeapengpnannanmness pint: 82 
MOV #10.,STIMES APO 20. ITERATIONS 
TSSINIT SUBSYSTEM 
ERROR 3 a3 INIT ERROR 
ISR R4¥, LRLOAD ;LOAD “L” REGS 
SELDRV : v 
0 :0 WORDS 
0 :0 Is BUFF ADDRESS 
-BYTE OO :SECTOR O 
BYTE O : TRACK O 
0 :CYLINDER O 
TLOADRK ;LOAD RK REGS 
TWAT 16 WAIT FOR INTERRUPT 
ERROR 2 :T0 SLOW/NOT COMPLETE ERROR 


SES 0152 


Kle 


CZR6KEO RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 153 SEQ 0153 
CZR6KE.P11 10-JAN-78 09:35 T102 INITIALIZE CLEARING SACK 
8271 
8272 O2704% 104421 TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
8 $3 027050 104004 ERROR 4 ;0R£, 6, 7 REPORT ALL ERRORS 
8275 O270S2 104416 TSSINIT ;CLEAR SUBSYSTEM 
Be76 027054 104003 ERROR 3 ‘BAD INIT ERROR 
8278 027056 004437 036252 JSR R4, LRLOAD ;LOAD “L” REGS 
8279 027062 000101 SELDRV : SELORV 
8280 7064 000000 0 :0 D 
8281 066 o00000 0 :0 IS BUFF ADDRESS 
8282 7070 000 BYTE O :SECTOR O 
BeB3 707 000 ‘BYTE O ; TRACK 
82 7072 oo0000 0 :CYLINDER O 
828S 027074 012737 O00043 O01616 MOV #3!0MD,L.MR1 :SET DIAG MODE AND MESSAGE PAIR 3 
Be86 027102 9005037 001610 CLR L.cS2 :SELECT DRIVE O 
BeBe 027106 104417 TLOADRK ;LOAD RK REGS 
8290 027110 004437 036674 ISR R4, MCLOCK ;CLOCK THROUGH PHASE ADDRESS 6 
8231 027114 001027 1027 
8233 027116 oO42762 oO00040 oD00e6 BIC #DMD,RKMR1(R2) ;CLEAR MAINTENANCE MODE 
8295S 027124 104424 TWAT32 ;WAIT FOR INTERRUPT 
Bese 027126 104002 ERROR 2 :TO SLOW/NOT COMPLETE 
8298 027130 1044 TCHKOP ; CHECK OPERAT ON FOR ANY ERRORS 
8299 027132 1o4054 ERROR 4 SEBORT 
8300 ;  anununneocsannseabscusbechucunhncusssantuasesrousensusaneneesss 
8301 jATEST 103 DRIVE OFF TRACK 
8303 S ISSUE A SUBSYST SUE A BRAT UE 
8304 i OFFSET" 0 F #260 rHTGROmT Thcwes. PUT CONTROLLER” IN BI DIAGNOSTIC 
8306 : TRACK soy TOR'G K THROUGH e Snb: DRIVE CLEAR 
8307 t oi 0, FURN G,  GrOck THRRUG bor DRIVE OFF TRACK 
8308 1 SHOULD SET Then DRIVE. REPEAT FoR ALL AVAILIABLE DRIVES. 
8310 = RHREKKRRERARKE RRR RRAK AERA RARER AREA RARER ERRARRRKRKRR RE RE KKK RAKHKNRE 
8311 027134 oo0004 +87 103: E 
8312 027136 012737 oo0000S o01262 MOV aS. ,STIMES ; . ITERATIONS 
8313 027144 104416 TSSINIT + APP aR SUBSYSTEM 
8314 027146 104003 ERROR 3 :BAD INIT ERROR 
8316 027150 004437 036252 ISR R4Y, LRLOAD ;LOAD “L™ REGS 
8317 027154 000113 RECAL > RECAL 
8318 027158 000000 0 ?0 WORDS 
8319 7160 000000 0 :0 Is BUFF ADDRESS 
8320 027162 “BYTE O ; SECTO RO 
8321 027163 000 ‘BYTE O : TRACK O 
8322 027164 000000 0 :CYLINDER O 
8324 027166 104417 TLOADRK ;LOAD RK REGS 
8325 027170 104423 TWAT 16 :WAIT FOR INTERRUPT 
8326 027172 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 


KEReKEO, ve ed | CTR 
CZROKE .P 


8327 027174 


3e8 726) 
8357 Oe7eb 
358 027264 


8360 027266 
8361 027270 


36e 
8363 027272 


8365 027276 
027300 


8368 027302 
§ 027304 


8371 £308 
8372 731 
8373 est? 


ae ret 
Be Bre 
8377 027322 
Ba Re | 
8381 027330 


10-JAN- ye 
00S037 


104437 
10400e 


104417 
104423 
104002 


104421 
104004 


seit 
11273 

104417 
104423 
10400e 
10442) 
104004 
00S037 


104424 
104002 


104421 
104004 


oo0000 

104417 
104423 

104002 


DIAG 
09:35 


001662 


036252 


036eS2 


000060 


001662 


036252 


MACY11 i ame 


00161e 


Lie 
a 09:57 PAGE 1S4 
DRIVE OFF TRACK 


CLR INTSET ;CLEAR INTERRUPT FLAG 
TWATSS ;WAIT FOR INTERRUPT #2 
ERROR 2 
JSR R4, LRLOAD ;LOAD “L” REGS 
nie CL om 
0 FF ADDRESS 
"BYTE 0 fo Re 
.BYTE 0O 
0 t OVC INDER 0 
TLOADRK ;LOAD RK REGS 
TWAT16 :WAIT FOR I rena 
ERROR 2 >TO SLOW/NOT GHPLETE ERROR 
TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;OR 5S, 6, 7 : REPORT ALL ERRORS 
JSR R4, LRLOAD ; LOAD “L™ REGS 
 iheeis ft 
0 FF ADDRESS 
-BYTE O io ob 
.BYTE 0O 
0 SYUINDER 9 
MOVB #60,L.ASOF SET AT +1200 
TLOADRK 98 Me FCS aR 
TWAT16E NTERR 
2 6 TE OKO NOT EONPLETE ERROR 
TCHKOP ;CHECK_ OPERATION FOR ANY ERRORS 
ERROR 4 ;0R S, 6, 7 jREPORT ALL ERRORS 
CLR INTSET ;CLEAR INT FLAG 
TWAT32 ;WAIT FOR INT #2 
ERROR 2 
TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;O0R S, 6, 7 ?REPORT ALL ERRORS 
JSR R4, LRLOAD ;LOAD "L”™ REGS 
CLEAR ; CLEAR 
0 ;0 WORDS 
0 :Q Ae RUFF ADDRESS 
-BYTE O ;SECTOR O 
-BYTE OQ ; 0 
0 ;CYLINDER O 
TLOADRK ;LOA mee -_ 
TWATI16 :WAI FOR 
ERROR 2 :TO SLOW/NOT COMPLETE ERROR 


SEG 0154 


— 8 eee 


CZR6KEO RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 155 SEQ 0155 
CZR6KE.P11 10-JAN-78 09:35 T103 DRIVE OFF TRACK 


8383 027332 104421 TCHKOP ; CHECK OPERATION FOR ANY ERRORS 

027334 104004 ERROR 4 ;0RS, 6, 7 ;REPORT ALL ERRORS 

927336 4437 036252 ISR R4, LRLOAD LOAD “L” REGS 

7 Bod023 23 {WRITE DATA W/O INTERRUPT ENABLE 

8 5 AE AEA OBUFF A Ee ROe BUFF ADDRESS 
Bs 5 oad OE Oo Pie 0 
8391 2 1 000 aByTe 0 R RACK 

B55 4 erecta 000040 001616 MOV #DMD,L.MR1 ieyt ROER, Bstic MODE 
8335 027362 104417 TLOADRK 
8 927 4 gouK 7 036674 ISR R4, MCLOCK ;CLOCK THROUGH SEEK & DRIVE CLEAR 
5399 7370 001064 1064 
8400 027372 o0s062 000026 CLR RKMR1(R2) CLEAR DIAGNOSTIC MODE 
Bugs 74 12762 100000 oo0000 MOV #CCLR, RKCS1(R2) rare AR BNTROLLE 
B03 | De740e 1 wes THAT 16 ?STALL FOR 16 MS 
o 027412 booe4o NOP 

7414 437 036252 ISR R4Y, LRLOAD sLOAD “L” REGS 
ei0e BBrie0 B80i8% SELORV ee 
10 74, we 0 :0 F ADDRESS 
a oe: ‘ave SeboRY6 
guts 74 oooshh 0 ay CEN RO 
euid 0274 005037 001616 CLR L.MR1 :RESET DIAG MODE 
1 74 104417 TLOADRK 

Bui$ a 1Bua35 TWATI6 OP Eo R  TATERR 
Big 7442 104002 ERROR 2 SLOW/NOT ERNPLETE ERROR 
8420 027444 104422 TCHKWE ace OPERATION WITH ERROR EXPECTED 
Biel ans) g00400 DROTERR :DRIVE OFF TRACK 
8423 Ue74Se 000000 
8424 027454 104004 ERROR :REPORT ANY DISCREPANCIES 
BY4eS jtepeeenaseneneabageusiehgeccaeknennsenseeseenienaeeXienaneaeea8 
Bucs ; ATEST 104 FILE UN 
8428 * x S a SYSTEM I CLAIBRAT ISSUE 
Bie9 i* A BREED HERB OF ey LYNDER 0 “9. FRREK "0 i ed qeSECTOR 
4 iH PUT LER IN a ag rene ho WRIT 
Be EATON IT ete ee ae 
434 a SIMULAT . FILE 
Buae +s BASAFE g dNPE* 5 onl oe? Bis aanast #e nope. 
Bue iS TROUGH SECTOR PULSE. REPEAT FOR ALL AVAILIABLE DRIVES. 


5 KELLER RELA A RRR RRR ERR RRR EE EKER REE RRRRRRRE REESE 





Nle 


Cc O RK& FCTNL CT O18. MACY11 30A( 1052) 10-JAN-78 09:57 PAGE 156 SEQ O1 
put Pil OC sAN Fe OS T104 FILE UNSAFE - 
TST104: SCOPE 
ee SH 901 MOV aS. ,$TIMES ; 5. ITERATIONS 
i ~ 16 E a #-1;REFM be FORMAT SWITCH 
43 Bae f ERROR 3 INET ERROR 
4S 00 437 036252 JSR R4, LRLOAD rn “L” REGS 
46 11 RECAL >RECAL 
4 0 30 
i :0 IS BUFF ADDRESS 
4 12 BYTE 0 : SECTOR 
1: BYTE : TRACK O 
0276. o0001 i :CYLINDER 12 
ge 16 104417 TLOADRK ;LOAD RK 
84 104423 TWATI6 :WAIT FOR INTERRUPT 
e S Oe7See 104002 OR 2 :TO SLOW/NOT COMPLETE ERROR 
7524 104421 TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
58 7526 104004 ERROR 4 ;ORS, 6, 7 ;REPORT ALL ERRORS 
8460 0275 005037 001662 CLR INTSET ;CLEAR INT FLAG 
846 Ge 104437 TWATSS :WAIT FOR SECOND INT 
104 ERROR 2 
4 027540 104421 TCHKOP CHECK OPERATION FOR ANY ERRORS 
8465 027542 104004 ERROR 4 ;0RS, 6, 7 : REPORT ALL ERRORS 
44 004437 036252 JSR R4Y, LRLOAD ;LOAD “L™ REGS 
Bue 7350 0001 CLEAR :CLEAR 
846 75 000000 0 :9 WORDS 
8470 7554 oo00000 0 Bet oR BUFF ADDRESS 
Byes bs 600 ‘BYIE OO SECTOR 0 
o3 027560 000012 i2 ! CYLINDER 12 
84 7562 104417 TLOADRK REGS 
Bure pe rees 104423 TWATI6 ihart FO FOR INTERRUPT 
ated 027566 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
8479 027570 104421 TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
geo 027572 104004 ERROR 4 ;0RS, 6, 7 ;REPORT ALL ERRORS 
8482 7574 437 026252 JSR R4, LRLOAD ;LOAD “L” REGS 
8483 7600 010125 RDHEAD! CFMT ; RDHEAD! CFMT 
8484 7602 000000 0 ;0 WORDS’ 
848S 7604 oo0c0o0 0 :0 IS BUFF ADDRESS 
8486 7606 coo -BYTE 0 i SECTOR 0 
B87 7607 000 "BYTE O cKO 
Bee 7610 oo0die i2 ONT IN R 12 
8490 027612 104417 TLOADRK ;LOAD RK REGS 
8491 027614 104424 TWAT32 ‘WAIT FOR INTERRU 
Buge 027616 104002 ERROR 2 :TO SLOW/NOT EONPLETE ERROR 


8494 027620 104421 TCHKOP ;CHECK OPERATION FOR ANY ERRORS 


aa 


KE.P11 


apatatrata 


ee eed ek ee ee es oO 
DO VON Lewrw-O bw we 


matatyatgtatatar tata 


oO 


027622 
7624 
7630 


027766 
027772 


CZR6KEO RK& FCTNL CTRL DIAG 
CZR6K 
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104004 
004437 


0000 

012737 
104417 
oo44 37 
001064 
0S2762 


004437 
001001 


042762 


004437 
001001 


ooSo06e 


104426 
104002 


104421 
104004 


o00001e 
005037 
104417 


036eS2 


036eS2 


GOOO40 


036674 


000200 
036674 


000200 
036674 


000026 


036252 


001616 


MACY11 30A(10S2) 
T104 


001616 


oo000e6 


ooo026 


B13 


10-JAN-78 09:57 PAGE 157 
FILE UNSAFE 


ERROR 


JSR 
rm 


TLOADRK 
TWAT16 
ERROR 
JSR 
_— 
OBUFF 
-BYTE 

. BYTE 
le 

nov 
TLOADRK 
JSR 
1064 
BIS 


JSR 
1001 


BIC 


JSR 
1001 


CLR 
TWAT64 
ERROR 
TCHKOP 
ERROR 
JSR 
SELDRV 
0 

0 

- BYTE 
. BYTE 
le 


CLR 
TLOADRK 


4 ;OR S&S, 6, 7 
R4, LRLOAD 


0 ; 


2 
R4Y, LRLOAD 


oo 


#OMD,L.MR1 
R4, MCLOCK 


#MIND, RKMR1(R2) 
R4, MCLOCK 


#MIND, RKMR1(R2) 
R4, MCLOCK 


RKMR1 (Re) 


2 


RY, LRLOAD 


oo 


L.MR1 


;REPORT ALL ERRORS 
;LOAD “L” REGS 
ELDORV 


;0 WORDS 
;0 IS aur ADDRESS 


SECTO! 


; TRACK O 
;CYLINDER 12 


;LOAD RK REGS 
;WAIT FOR INTERRUP 


;TO SLOW/NOT GOMPLETE ERROR 
; LOAD “L” REGS 
a an D 


; SECTOR m 
CYLINDER 


le 
;SET DIAGNOSTIC-MODE 


;LOAD RK 


WORDS 
S OBUFF bab BUFF ADDRESS 


REGS 
:CLOCK THROUGH SEEK AND DRIVE CLEAR 


;SET INDEX 
;CLOCK INDEX 


;CLEAR INDEX 
;CLOCK CLEAR 


;CLEAR DIAGNOSTIC MODE 


;WAIT FOR INTERRUPT 
:TO SLOW/NOT COMPLETE ERROR 


“CHECK OPERATION FOR ANY ERRORS 
4 ;O0R 5S, 6, 7, 10 ;REPORT ALL ERRORS 


;LOAD “L” REGS 
; SELORV 


;0 WORDS 
:0 IS BUFF ADDRESS 
;SECTOR O 


ACK 0 
i CYLINDER 12 
;CLEAR DIAG MODE 


;LOAD RK REGS 


SEQ 0157 


jt vi FCTNL CTRL DIAG 
11 10-JAN-78 09:35 


CZR6KE .P 


geez 


a 


ratatiatatatytatat 
aevzon—o 


@ 
wr 


8579 


nears 


03006 

030066 
030070 
030074 
030076 
030100 
030102 
030104 


030112 
030114 


030135 


0000 
104004 


004437 


104002 
104421 
104004 


032737 
001767 


104416 
104003 


012762 


104437 
104002 


005037 
004437 
000105 


036252 


000001 


000040 


001662 


000100 


001616 
036252 


MACY11 30A(10S2) 
T104 


O0i616 


001574 


000000 





1$: 


10-JAN-78 09:S7 PAGE 158 
FILE UNSAFE 


TWAT16 ;WAIT FOR INTERRUPT 
ERROR 2 ;TO SLOW/NOT COMPLETE ERROR 


TCHKWE ; CHECK OPERATION WITH EXPECTED ERROR 
rn ;UNSAFE AND DRIVE OFF TRACK 


0 
ERROR 4; OR S,6,7 ;REPORT ANY DISCREPANCIES 


TSSINIT ;CLEAR SUBSYSTEM 

ERROR 3 ;BAD INIT ERROR 

JSR R4Y, LRLOAD ;LOAD “L” REGS 

SELDORV ; SELDRV 

0 ;0 WORDS 

0 ;0_ IS BUFF ADDRESS 

-BYTE OQ ;SECTOR O 

-BYTE O ; TRACK O 

le ;CYLINDER 12 

MOV #1,L.MR1 ;SET MESSAGE SELECT ONE 
TLOADRK 

TWAT1E that? FO FOR ROR TERR 

ERROR 2 ;TO SLOW/NOT GONPLETE ERROR 
TCHKOP ; CHECK_OPERATION FOR ANY ERRORS 


ERROR 4 ;O0RS, 6, 7 jREPORT ALL ERRORS 
BIT ‘inate drat ;TEST IF HEADS HOME 


BEQ 

TSSINIT ;CLEAR SUBSYSTEM 

ERROR 3 ;BAD INIT ERROR 

CLR INTSET sCLEOn INT FLAG 

TWAT1S9 WAIT FOR APPROX 1 160_MS 
NOP DON? T CARE ERROR RETURN 
TSSINIT ;CLEAR SUBSYSTEM 

ERROR 3 ;BAD INIT ERROR 

MOV #IE,RKCS1(R2) ;SET INTERRUPT ENABLE 
TWATSS ;WAIT FOR SECOND INTERRUPT FROM HDS LOADED 
ERROR 2 

CLR L.MR1 ;CLEAR MR1 

JSR R4,LRLOAD ;LOAD “L” REGS 

CLEAR ;CLEAR 

0 ;0 WORDS 

0 :0 13 BUFF ADDRESS 

-BYTE O ;SECTOR 0 

-BYTE 0O ; TRACK O 


SEQ 0158 


CZR6KEO RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 159 SEQ 0159 
CZR6KE.P11 10-JAN-78 09:35 T104 FILE UNSAFE 

8607 030136 000012 12 ;CYLINDER 12 

0 140 104417 TLOADRK ;L00 
Bei b33i4 1Bio3 THATIES bgt t PKR RES TERR RUPT 
3611 144 104 ERROR :T0 SLOW/NOT COMPLETE ERROR 
8613 1 104421 TCHKOP ;CHECK_OPERATION FOR ANY ERRORS 
Bele 83018 1Bd054 ERROR 4 ;0R 5S, 6, 7 ;REPORT ALL ERRORS 

te 0301S2 004437 042636 JSR R4, GENCOM ;BUILD HEADERS 
8617 030156 001200 1200 

: 036252 JSR R4, LRLOAD iLO “L” REGS 
4 Bugi87 3 WRHEAD + WRHEAD 
i 1 -102 +=-102 WORDS 

8622 030170 arent OBUFF :OBUFF IS BUFF ADDRESS 
Bes 030175 O50 OIE OO 5 Peer? 
8625 eer oo000ie i2 *CYLINDER 12 
BESS 030176 104417 TLOADRK ;LOAD RK REGS 

28 030200 104426 TWAT6Y * WAIT FOR INTERRUPT 
8629 030202 104002 ERROR 2 ?TO SLOW/NOT COMPLETE ERROR 
8631 030204 104421 TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
Bee 030206 104004 ERROR 4 ;0RS, 6, 7 ;REPORT ALL ERRORS 
Bese H fATEST Togs" **Oummr Test FOR PREVIOUS TEST EXIT. 0” 
86 :% MAK! HA 
8637 i uHiGH RELATES 10 MEMORY" if "Y8 he Recesseny TF AN AN ERROR OCCURS 

3 * i THIS T SK ep THE 
BEG i Felts ROUTINE AND. resehe "Tee Pegeeen Br HoULD ok v. 
Bb42 1 IN ADDITION, THE DR 1s CLEARED Aly THE HEADS ARE ALLOWED 
8643  % TO RELOAD. THIS MUS do 0 PREVEN NT Tone XPECTED INTERRUPTS 
6644 ia FROM THE DRIVE COMING READY AT A 
Bel? t ceesfROM. THE ORIVE COMING REROY eT eg CATER TIME. © 0 8" 

46 030210 oo0004 +éT1loS: SCOPE 
8647 030212 012737 o00001 o0126be2 MOV #1,STIMES ;;DO 1 ITERATION 

4 1044 N . ;CLEAR SUBSYSTEM 
eb2e G90882 18idu8 caan" SoB TPP ERR 
86 030224 013762 001626 000010 MOV DRVNUM,RKCS2(R2) ;LOAD DRIVE NUMBER 
ob pea oe Roy Bau 
Beec ay 053737 wee BSeepS BIS BtYBe AHOLD 
8656 030252 013762 036502 o00000 MOV (R2) ELECT THE DRIVE 
8657 930260 032766 000200 o000le 1S: BIT HOLD RKDS(Re) ;TEST If DRIVE READY 
ebS8 66 1004 BNE 
86539 030270 005237 036504 INC HOLD1 fae TRY AGAIN 
8660 030274 001371 BNE 1 
8661 030276 104002 ERROR 2 ;NO RDY 


cgneeo RK& FCTNL CTRL DIAG 
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030300 
030300 
030302 


030342 


10-JAN-78 09:35 
104416 
104003 


004437 
001200 


004437 
000127 
77676 
72414 
000 


042636 


0362Se 


000 
ooo000 
104417 
104426 
10400e 
104421 


104004 
005037 001676 


MACY11 30A(10S2) 
T10S 


es: 


10-JAN-78 


09:57 


PAGE 160 
DUMMY TEST FOR PREVIOUS TEST EXIT 


TSSINIT 
ERROR 3 


JSR R4Y, GENCOM 
1200 


JSR R4, LRLOAD 
AD 


TLOADRK 
TWATE4 
ERROR 2 
TCHKOP 


ERROR 4 
CLR REFAT 


SOR S, 6, 7 


;CLEAR SUBSYSTEM 
:BAD INIT ERROR 


;GENERATE HEADERS FOR CYL O 


LOAD “L” REGS 
:=102 WORDS 
:OBUFF IS BUFF ADDRESS 
:SECTOR O 

: TRACK O 

:CYLINDER O 

;LOAD RK REGS 


;WAIT FOR INTERRUPT 
:TO SLOW/NOT COMPLETE ERROR 


;CHECK_OPERATION FOR ANY ERRORS 
;REPORT ALL ERROR 
;CLEAR REFORMAT SWITCH 


SEQ 0160 


F13 


CZREKEO. RK& FCTNL CTRL DIAG MACY11 30A(1052) 10-JAN-78 09:57 PAGE 161 SEQ 0161 
CZ2R6KE.P11 10-JAN-78 09:35 *#*MULTI-DRIVE OPERATIONS 
geec .SBTTL #*#MULTI-DRIVE OPERATIONS 
8686 346 o000004 NEWORV: SCOPE 
8687 350 012737 o00001 oOClebe MOV IMES ;D0 ONLY ONCE 
2608 030358 032737 000200 001630 BIT sett? DRVBIT j WERE WE TESTING DRIVE 7? 
B689 364 001026 BNE YES-SKIP 
sess O30398 GORE? OIESS sR Bae BS TENET PUREE SORES 
8633 930376 3737 001630 001354 BIT DRVBIT, SDEVM ste THe, DRIVE TO BE TESTED? 
8695 930406 030732 000400 001630 BIT 88178, DRVBIT Pek DRIVES TESTED? 
Bea7 B3oute 00076 BR i$ :ELSE CHECK NEXT DRIVE AVAILABLE 
e633 930420 112737 000004 001102 2s: MOVB #4, STSTNM ;SET TEST NUMBER FOR REPORTS 
8700 030426 701 001626 MOV DRYNUM, R1 
8701 030432 4737 036526 JSR PC, GTYP1 ;GET ORV TYP FOR NEXT ORV TO TST 
8702 030436 000137 O0474e IMP TStLuP :GO TO TEST LOOP TO CHECK THIS DRIVE 
8703 O30442 005037 001630 3$: CLR DRVBIT ?CLEAR DRIVE BIT 
B704 030446 005037 001626 CLR DRVNUM ?CLEAR DRIVE NUMBER 
8706 4 © RMR MRR ER RRR RRRRRRRRRRRRE RARE RH RKRKRKKKE 
8707 jATEST 106 RESET ATTENTIONS WITH UNIBUS INIT 
87093 + po 4 RECAL IBRATE ON ALL AVAILIABLE DRIVES. 
8710 +3 ISSUE A RESET. MAKE SURE ALL ATTENTION RESET. 
Beis 30"Se 00004 Se ee an ee ee 
8714 030454 012737 o00012 o0126b2 MOV #10. ,STIMES -DO 10. ITERATIONS 
8715 030462 000 CLR RO LEAR DRIVE POSITION COUNTER 
B71? 080470 O19709 BOT aSd Mov. $0VM,R3 PRESET: a een 2 ee eee ee 
8718 030474 104416 TSSINIT , >CLEAR YSTEM 
8719 030476 104003 RROR 3 ;BAD_INI 
esi basene BeTdee s fe iYeeistye toate © SVRTLAOLE 
8755 BaneDe 005200 3s: RECO i BUTE T Datve Bethe L P2L wren 
aves 03051 032701 000400 B17 #B1T8, Rl ;ALL DRIVE POSITIONS CHECKED 
B7 eb 030516 000443 BR 4g SKIP TO RESET 
87e8 O 010037 0o0161 2s: MOV RO,L. cse ;LOAD DRIVE NUMBER 
8729 030524 pAa35 pseets ey PC’ GTYPO , 
8730 030530 012737 000113 001600 MOV #RECAL,L.CS1 ;LOAD RECALIBRATE 
8732 030536 104417 TLOADRK ;LOAD RK_REGS 
8733 030540 104423 THATIC WAIT FOR INTERRUPT 
8734 030542 104002 ERROR 2 'TO SLOW/NOT COMPLETE ERROR 
8736 030544 005037 001662 CLR INTSET ;CLEAR INTERRUPT FLAG 
8737 030550 01270S 000764 MOV #500 :SET COUNT FOR 8 SECONDS 
8738 030554 Ole762 O00012 oD0000 MOV sie RKEELOR RESET INTERRUPT ENABLE 
8739 030562 016237 O00016 OOISSE 128: MOV RKASO F CRS) Re ‘asoF -GET ATTENTION REGISTER 
8740 030570 113704 001557 MOYB ASOF+1,R4 aAbJUST FOR CHECK OF ATTENTION 


6KE.P11 


B30e09 


T 


Bees 
Sas 
oC cMoO 


030742 


egnexee RK& FCTNL CTRL DIAG 
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62 
10400e 
104421 
104004 
000727 
oo0005S 
004737 
012701 
00$301 
001376 
004737 
104420 


10S737 
001407 


012737 


012737 
104012 


000443 


177400 


o4sse4 
000031 


035120 


001SS7 


057172 
057316 


000012 


000001 
001354 


000400 


MACY11 30A(10S2) 
T106 


001470 
0614S4 


001262 


10$: 


4$: 


S$: 


SO EEE Te TT TT rrr rT 


err t ttt titi t ttt titi ttt tt ttitiitittttitiititiiit rire sees seers eS 
0 


G13 
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RESET ATTENTIONS WITH UNIBUS INIT 


j ATEST T 107 

ix 

2% 

-% 

+éT107: Sc 
MOV 
CLR 
MOV 
MOV 
TSSINIT 
ERROR 

1S: BIT 
BNE 

3S: ASL 
INC 
BIT 
BEQ 
BR 


#177400,R4 
R1,R4Y 
10% 


4 ;OR S, 6, 7 
3$ 

PC, STKINT 

| iat 


S$ 
PC,OPTTST 


T.ASOF +1 
6% 


#EMDA,EM12N 
HEMUR, ,OFOL1A 


s ELERS UNUSED BITS 
CHECK IF ATT 
YES - SKIP 


;WAIT_FOR 16 MS 
;DON’T CARE RETURNS 


;TATOL WAIT TIME IS 8 Le 


:CHECK_ATTENTION EACH 
:REPORT IF NO ATTENTION IN 8 SEC 


; CHECK OPERATION FOR ANY ERRORS 
;REPORT ALL ERRORS 
LOOP FOR NEXT DRIVE 
‘ ONTBUS 
;RESET KEYBOARD INTERRUPT ENABLE 


;D0 A SHORT DELAY 


;SET UP OPTIONS 
;GET RK611 REGS 
hes ATTENTION RESET? 

; YES-SKIF 

;"DRIVE ATT NOT RESET RESULT OF 
;UNIBUS RESET’ 


RESET ATTENTIONS WITH SUBSYSTEM CLEAR 


DO A _RECALIBRATE ON ALL AVAILABLE DRIVES. 
ad A SUBSYSTEM CLEAR. 


#10.,STIMES 
RO 


#1,R1 
$DEVM,R3 


Maw 


R1,R3 

$ 
Rl 
RO 
#BIT8,R1 
1$ 
4$ 


MAKE SURE ALL ATTENTIONS 


AP abe TERATIONS 
Beets i+ bent COUNTER 
iB Ser hae SITION 0 


et EAR UBSYSTEN 
; THIS “DRIVE AV AVAILABLE? 
ee TO el , 


;OUMP POSITION COUN 
;ALL POSITIONS CHECKED 


;NO-LO 
:YES-SKIP TO CLEAR 


SEG 0162 


SET FROM DRIVE RECAL’ED 


CZR6KEO RK& FCTNL CTRL DIAG 
10-JAN-78 09:35 


CZR6KE. 


gS 7 


@ 
2 


{0 9D DED DEDEDE DED 
PUP be re he be ee ee 
OWONOUSWM-oO 


Pill 


031070 


031072 
031076 


031100 
031106 
031114 


031116 


auoner 


3 
001362 
104002 


104421 
104004 
000727 
052762 


001376 
104420 


105737 
001407 


012737 
012737 
104012 


000040 
000031 


001557 


057172 
057406 
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001600 


Boise 


000010 


001470 
0614S4 


7107 RESET ATTENTIONS WITH SUBSYSTEM CLEAR 


es: MOV RO,L.CS2 ;LOAD DRIVE NUMBER 


JSR PC’ GTYPC 


Vv #RECAL,L.CS1 ;LOAD REC 
TLOADRK 3L A 
ATI WAIT FOR INTERR 
ERROR 2 ‘TO SLOW/NOT EONPLETE ERROR 
CLR INTSET ; CLEAR ott FLAG 
HOV OeKee s SET COUN 
12$: MOV Bseites\ re asot ERET TERT ENROL 
MOVB aK ;AbJUST F OR CHECK OF ATTENTION 
BIC nis 7400. 1,4 L 
BIT R1,R4 CHECK IF ATT SET FROM DRIVE RECAL’ED 
BNE 10$ :YES - SKIP 
TWAT 16 ;WAIT FOR 16 MS 
NOP :DON’T CARE RETURNS 
DEC RS ;TATOL WAIT TIME IS 8 SECONDS 
BNE 125 ?CHECK ATTENTION EACH 16 M 
ERROR 2 ‘REPORT IF NO ATTENTION IN 8 SEC 
10S: 
TCHKOP ;CHECK OPERATION FOR ANY ERRORS 
ERROR 4 ;0RS, 6, 7 :REPORT ALL ERRORS 
BR 3$ ;LOOP FOR NEXT DRIVE 
4S: BIS #SCLR,RKCS2(R2) ;DO0 SUBSYSTEM CLEAR 
MOV #25. ,R1 :DO A SHORT DELAY 
S$: DEC Ri 
BNE S$ 
TGETRK ;GET RK611 REGS 
TSTB T.ASOF+1 ; TEST ALL ATTENTION RESET 
BEQ 6$  YES-SKIP 
MOV #EMDA, EM12N ;"DRIVE ATT NOT RESET AS RESULT OF 
HOV WEMSCLR, DFO11A :SUBSYSTEM CLEAR” 


: ere re err Cnt at een 
i ATEST 110 SVAL AND ATTENTION FROM OTHER DRIVE 


DO A RECALIBRATE ON ONE CyAiL ee OR IVE . DO A SELECT 


ON OD NOT HEN AVAIL AGLE OOS Sir ot ae & STATUS VALID 
IS COND_INT ERRU T PROM RECAL IBRATE 


MAKE SURE STATUS ve, 10 REMAINS SET AND DRIVE STATUS 
CHANGE REMAINS RESET 


REPEAT FOR ALL COMBINATIONS OF TWO AVAILIABLE DRIVES. 


peprererenrenrenrenrereaee 


. 
’ 
. 
$ 
$ 
. 
tJ 
. 
9 
. 
‘ 
. 
’ 
. 
’ 
. 
, 


SEQ 0163 


kgReKeO., RK& FCTNL CTRL DIAG 
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KE. 


031116 04 
031120 012737 
O311e6 013746 
1i3e 004437 
031136 O2e2be7 
031142 401007 
031144 005737 
031150 001002 
031152 104401 
031156 000137 
31166 012737 
8 11 3705S 
O31i76 O0s0u1 
031200 012703 
031204 Bt 704 
031e10 012737 
031216 000503 
031220 
O31e2e0 104416 
O3leee 104003 
031224 010037 
031230 010037 
031234 004737 
031240 012737 
031246 104417 
031250 1044e3 
O3leSe 104002 
031254 104421 
031e56 104004 


wr 
N 
<= 
Oo 
Oo 
£ 
Ww 
N 


GW Ww 
oO 
ray 
rT 
NING 
W 
N 


104421 
104004 


032737 
001007 


00 OO bt at oo 


WW WW W 
CTO TL MO 


oocdle 


0S32e6 
O3e4ee 


177777 
0013S4 


03 
000101 


100000 


MACY11 et 1052) 


001262 


001224 


001110 


001600 


001600 


001552 


0 


;% 
JH 


#8T110: 


1$: 
es: 


38: 
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I13 


SEG 0164 


SVAL AND ATTENTION FROM OTHER ORIVE 


THIS TEST WILL ONLY BE DONE IF AT LEAST 
TWO DRIVES ARE AVAILABLE. 


« REREKKR ALEK AKA ARREARS REAL RA AAS SHALL ARAL ARAARE RARER AAR AREALAAA LEEK 
PE 


NOTE: 


TLOADRK 
TWAT16 
ERROR 


TCHKOP 
ERROR 


BIT 
BNE 


#10. ,$TIMES 
SDEVM, -(SP) 
RY, BITCNT 
Cop p+, #1 
$PASS 

1S 

OPRO18 
$EoP 


a1 S$TMP1 
DEvH, RS 


Rt 
ate aS 


a8, ¢LPERR 


RO,L.cS2 
RO, OR : BAVA 
WRECAL L.CS1 


uy 


4 ;OR S, 6, 7 
INTSET 


R1,L.CS2e 
R1, ORVNUM 


GTYP1 
#SELDRV,L.CS1 


v 
oO 


e 


4 ;0OR S, 6, 7 
#SVAL,T.DS 
4§ 


;:D0 10. ITERATIONS 
:PUT DEVICE MAP ON STACK 
:cOuayT NUMBER OF BITS(# OF DRIVES) 


;SKIP IF MORE THAN 1 
;CHECK IF PASS 0 
;NO-SKIP 


5 OVERLAPPED OPERATION BYPASSED” 


UP 
;CLEAR SUBSYSTEM 
;BAD INIT ERROR 


;LOAD DRIVE A 
;LOAD FOR REPORT 


;LOAD RECAL 


;LOAD RK REGS 

;WAIT FOR INTERRUPT 

;TO SLOW/NOT COMPLETE ERROR 

i CHECK OPERATION FOR ANY ERRORS 
REPORT ALL ERRORS 


CLEAR INT FLAG 


;LOAD DRIVE B 
;LOAD FOR REPORT 


;LOAD DRIVE SELECT 

;LOAD RK REGS 

;WAIT FOR INTERRUP 

:TO SLOW/NOT COMPLETE ERROR 


;CHECK_ OPERATION FOR ANY ERRORS 
;REPORT ALL ERRORS 


;CHECK IF STATUS VALID SET 
;YES - SKIP 


J13 


CZR&KEO RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 165 SEQ O165 
CZR6KE.P11 10-JAN-78 09:35 T110 SVAL AND ATTENTION FROM OTHER DRIVE 

8909 031330 012737 OS7006 001460 MOV WEMSVAL,EM1IN  ;“STATUS VALID NOT SET RESULT OF 

8910 031336 012737 050536 061454 MOV #OPERUO, DFOIIA ;ORIVE SELECT” 

gait 031344 104011 ERROR 11 

8913 03134 005037 001662 4S: CLR INTSET ; CLEAR INT FLAG 

8914 031352 104436 TWAT2S WAIT FOR SEEK COMPLETE INTERRUPT 

8915 031354 000401 BR 44g NONE RECEIVED - pok IP 

gaig 031356 o00406 BR sss : RECEIVED - SKIP 

8918 931360 010037 001626 44S: MOV RO, DRVNUi ;SET DRIVE FOR REPORT 

8919 1364 012737 061043 001372 MOV s0HO17, OH2N :*COMMAND - SELECT AFTER RECAL” 

83e0 031372 104002 ERROR 

B3ee 031374 104420 sss: TGETRK ;GET_RK_REGS 

8923 031376 032737 100000 oo1sse BIT BSVAL, T.0S ‘TEST IF SVAL STILL SET 

B3e4 031404 001007 BNE cs :YES - SKIP 

8926 031406 012737 OS7006 001510 MOV WEMSVAL,EMIYN  ;“STATUS VALID RESET RESULT OF 

8927 O31414 012737 061066 061454 MOV #DHO18,0FO11A ;RECAL COMPLETE ATTENTION AFTER SEL” 

g3e8 031422 104014 ERROR 14 

8330 031424 104415 S$: SCOP1 ;LOCAL LOOP TO 3S 

8932 ; THE FOLLOWING CODE CAUSES THE TEST TO BE RUN ON EVERY COMBINATION 

8933 : F DRIVES AVAILABLE. THE FIRST PASS OF THE PROGRAM WILL USE THE 

8934 : LOWEST NUMBER DRIVE AS THE NEXT H R NUMBER DRIVE AS 

8935 : ECO ASS SWAPS DRIVE A & B. THE THIRD PASS USES 

8936 : THE LOWEST NUMBER DRIV AS B AND THE 3RD HIG DRIVE 

8937 : FORTH PAS & B AGAI HIS CONTINUES 

8938 : UNTIL ALL DRIVES HAVE BEEN TESTED WITH THE LOWEST NUMBER 

Bic Benge 

8941 : THE SECOND HIGHEST NUMBER DRIVE IS THEN USED AS A AND THE 

ase : THIRD HIGHEST AS B. THEY ARE SWAPPED ON THE NEXT PASS. 

8944 ; THIS TECHNIQUE IS CONTINUED UNTIL ALL COMBINATIONS ARE 

B45 : CHECKED. 

8947 031426 005237 001224 11S: INC STMP1 j INCREMENT PASS CONTROL 

8948 O3143e 001024 BNE 16% :SKIP IF NO 

8949 :(IT WILL BE ZERO ON THE 1ST PASS) 

8951 031434 030305 12S: BIT R3,RS ;TEST IF BIT POSITION FOR A AT AVAIL DRIVE 

B3b¢ 031436 001006 BNE 13$ ; YES-SKIP 

8954 031440 200 225 INC RO ;BUMP RO (DRIVE @) 

8955S 031442 006303 ASL R3 :SHIFT DRIVE SELECT BIT ONE POSITION 

8956 031444 032703 oD0400 BIT #B8178,R3 !IF BIT 8 IS SET, ALL DRIVES HAV 

8957 031450 001771 BEQ 123 !BEEN CHECKED; IF NOT CHECK NEXT POSITION 

B58 0314S2 O00464 SOs : DONE-EXIT 

8960 O314S4 010001 13$: MOV RO,R1 ;SET DRIVE B TO THE SAME AS A 

8961 031456 010304 MOV R3,R4 

8962 O31460 005201 14S: INC Ri ;BUMP R1 (DRIVE B) 

8963 O31462 006304 ASL RY :SHIFT SELECTOR BIT ONE POSITION 

8964 O31464 O30405 BIT RY, RS :IS THIS DRIVE AVAIL? 


eenenee, RK& FCTNL CTRL DIAG MACY11 30A(10S2)_ 10-JAN-78 09:S7 PAGE 1 SES 0166 


6KE.P11 10-JAN-78 09:35 T110 SVAL AND ATTENTION FROM OTHER DRIVE 
8965 031466 001004 BNE 15S ; YES-SKIP 
8966 031470 032704 o00400 BIT #BIT8,R4 :WERE ALL POSITIONS CHECKED? 
8967 031474 001771 BEG 14$ ;NO-LO 
8368 031476 o004Se BR sos : DONE-EXIT 
8970 031500 000137 031220 15$: IMP 3¢ ;GO DO THE TEST ON THE DRIVE A&B 
8971 5 CONTAINED IN R R1 
8972 031504 032737 o00001 o01224 16S: BIT #BITO,STMP1 :IS PASS FLAGS ODD? 
8373 031512 001410 BEG 17$ ? NO-SKIP 
835¢ 031514 0O1004%6 MOV RO,-(SP) 
as 031516 O10346 MOV R3,-(SP) SWAP RO & R1, R38 RY 
8977 1520 010403 MOV R4;R3 :TO EXCHANGE RIVE A&B 
897: 15¢e 010100 MOV R1:RO 
eg 1 012604 MOV (SP)+,R4 
89 031526 012601 MOV (SP)+/R1 
8381 031530 000137 031220 IMP 3$ ;REPEAT TEST ON THIS COMBO. 
B65 031534 032737 o00002 001224 178: BIT #BIT1,STMP1 ;TEST IF PASS FLAGS AT HALF MODULE 4? 
8984 g31542 001410 BEQ 19$ Pe SKIP TO BUMP DRIVE B 
g98S 031544 18$: INC RO DRIVE A 
gg 031546 006303 ASL R3 :SHIFT DRIVE SELECT BIT 
898 031580 030305 BIT R3,RS ? AVAILABLE? 
8988 1552 001014 BNE 20$ ? YES-SKIP 
8989 031554 032703 oD0400 BIT #81T8,R3 *ALL_ CHECKED? 
8990 031560 001771 BEQ 18$ :NO-SKI 
8991 031562 12 BR 21$ :GO TO NEXT PASS 
Saq5 031564 o0S201 19$: INC RI ;BUMP_ DRIVE B 
egg4 031566 006304 ASL RY :BVATLABLES SELECT BIT 
8993S 1 030405 BIT RY, RS 
8996 031572 001004 BNE 20 YES-SKIP 
8997 031574 0327 000400 BIT #81T8,R4 fact CHECKED? 
8998 031600 001771 BEQ 19$ 
B99 031602 o00404 BR 235 tYES- SKIP TO NEXT PASS 
3001 031604 000137 031220 20$: IMP 3$ ;GO TEST THIS COMBO 
9003 031610 010100 21S: MOV R1,RO ;SET DRIVE _O TO LOW POSITION THIS PASS 
8004 O31612 010403 MOV R4’R3 :SET SELECT BITS TO AGREE 
9005 031614 005037 001224 23S: CLR $TMP1 *CLEAR PASS FLAGS 
3908 G31be0 990137 031440 ay IMP 225 :GO SET UP A & 
9008 . SSETTTT TTT TT TTT TTT TT TTT TTT TT TTT tt ttt ttt ttt ttt titi ttt tite 
3008 ;ATEST 111 OVERLAPPED OPERATIONS 
9011 i DO A RECALIBRATE ON BOTH DRIVE A AND DRIVE B. ISSUE A 
g01e x SEEK ON DRIVE A TO CYLINDER 1. IM MEDIATELY ISSUE A WRITE 
3013 2% DATA TO CYLINDER 100, TRACK 0, HEAD O ON ORIVE B. 
3014 2x AT THE END OF THE DATA TRANSFER NO ERRORS SHOULD 
2015 i BE SET AND DRIVE A HAS ATTENTION SET 
3017 i REPEAT FOR ALL COMBINATIONS OF TWO DRIVES. 
9019 1x NOTE: IF ONLY ONE DRIVE IS AVAILABLE THE 
3020 1% TEST WILL NOT BE DONE. 
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9021 
39022 
9023 0316e4 000004 
pe 031626 012737 000005 
3058 031634 012737 177777 
90e7 031642 013705 001354 
ase BESS HER? 
3030 netted pi E703 peoont 
3038 iges 18537 Baie72 
9033 031670 OO0SSS 
Be Biers 
167e 104416 
on39 031674 104003 
1 10037 001626 
ie Gaises giana BlEtE 
9040 031706 004737 0365le 
042 03171e 012737 000113 
43 0317 104417 
3044 O31 73 104423 
3904S Bai zee 104002 
Spay 0317 008037 001662 
39048 1732 104437 
open B31934 ibvoae 
9051 031736 012737 000105 
se, Bie iets 
9054 1750 1040 
Se SS soe 
apes B31 zee 104004 
30 17’ 032737 040000 
9059 031764 p01 325 
9060 031766 010137 001626 
9061 031772 010137 001610 


aoe3 O3e008 b12737 Oobri3 


e099 001662 


10400e 
32) 012737 000105 


73 38036 Ib4423 


44 
9074 032040 104002 
3076 O32042 104421 


MACY11 se 


001262 
001224 


001110 


001600 


001600 


001540 


001600 


001600 


A 
1 
i* 


+g 


es: 
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s LEE KAAAL ER RAA AERA RRA R RL RA RAR AAA RARE RELA LARA R AAA RA LALLA AAA A ALAS 


Till: ore 


3$: 


4S: 


S$: 


TCHKOP 


#S.,STIMES 


s1 STMPI 
DEH, R 


RY 
+ R3 


as, ¢LPERR 
3 

RO, DRVNUM 
RO;L +CSe 
PC’ GTYPO 
AREGAL L.cS1 


INTSET 


rm 


INTSET 


2 
#CLEAR,L.CS1 


;;00 S. ITERATIONS 
; SET LOOP CONTROL FLAG 
“DRIVE #0 
BRIVE 83 


y PEANE SEE eo 


I 
ORE DRIVE FOR REPORT 
TUP DRIVE A TO RECAL 


;LOAD RK REGS 

;WAIT FOR INTERRUPT 

;TO SLOW/NOT COMPLETE ERROR 
;CLEAR INTERRUPT FLAG 


ieee FOR SECOND INTERRUPT 
SLOW/NOT COMPLETE ERROR 


:SET ur. u's ar DRIVE 


3L 
;WAIT FoR INTER PT 
;TO SLOW/ OMPLETE ERROR 


COB OR OPERATION FOR ANY ERRORS 
HE ORT ALL errors 
oat « IF 5 TILL SET 


LOOP 
ope DRIVE FOR REPORT 
;SETUP DRIVE B TO RECAL 


;LOAD RK REGS 

;WAIT RyRy aa 

; 10 SLOW BNPLETE ERROR 
;CLEAR INTERRUPT FLAG 

sary FOR SECOND INTERRUPT 

; TO SLOW/NOT COMPLETE ERROR 
3 SET 4 DRIVE CLEAR 


ne OPERATION FOR ANY ERRORS 


SEG 0167 


TL 


--- — a I I 


M13 


CZR6KEO RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 168 SEQ O168 
CZR6KE.P11 10-JAN-78 09:35 Tlil OVERLAPPED OPERATIONS 
9077 032044 104004 ERROR 4 RS, 6, 7 ;REPORT ALL ERRORS 
9078 032046 032737 oO40000 001540 BIT #01;T.CSi i TEST IF OT STILL SET 
3078 032084 001372 BNE 5g YES - LOOP 
Vv RVNUM T Vv FOR REPORT 

anes Gasees BiBRS> BBIETB Mov Rot Dees S198 BRIVE Ato SEEK 
ei fase Gere fennel oss § = ay toe, sto ow 1 
3085 835968 Biss Bpat te 001600 MOV BStEK OL .CS1 : 
a089 032106 104417 TLOADRK LOAD RK REGS 
9088 032110 104423 TWATI6 {WAIT FOR INTERRUPT 
9089 O321l2 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
303) 114 010137 001626 MOV R1, ORVNUM ;STORE DRIVE FOR REPORT 

Be 032120 818137 Ogie16 nov R1,L.CSe :SETUP DRIVE B TO WRITE DATA 
gpa4 §3518¢ Hee BaBt 001614 MOV #100,L.O0CYL ;AT CYL 100 
309s 136 77400 001602 MOV #-400,L.WC :400 WORDS 
3038 144 piss 2 Oreuis 001604 MOV #OBUFF,L.BA 
3032 iS2 0127 Ol 001600 MOV #WRDATA,L.CS1 
3098 032160 104417 | TLOADRK ;LOAD RK REGS-DO WRITE 
9101 O32162 104427 TWATBO ;WAIT FOR INTERRUPT 
3102 032164 104002 ERROR 2 :TO SLOW/NOT COMPLETE ERROR 
9104 032166 104421 TCHKOP $ CHECK OPERATION FOR ANY ERRORS 
3108 032170 104004 ERROR 4 ;0RS, 6, 7 ;REPORT ALL ERRORS 
9107 032172 010037 001626 MOV RO, DRVNUM ‘STORE DRIVE FOR REPORT 
3108 03217. a81807 001557 178 R347. .ASOF +1 i CHECK, IF DRIVE ATTENTION IS DRIVE A 
319 1e999 057172 001460 MOV #EMDA, EMI i “BRIVE ATTENTION NOT SET RESULT OF 
9111 O3221l2 012737 OSO6SO 061454 MOV SEMSK: DFOLIA : SEEK" 
gile 32220 104011 ERROR 11 
3114 o32222 104415 10S: SCOP1 ;LOCAL LOOP TO 3$ 
9116 ; THE FOLLOWING CODE CAUSE THE TEST TO RUN N VERY, COMBINATION 
9117 F T PA S 1h, rat ILL USE THE 
9118 ; POwes Pe VR eet : VE’ AS ane The NE CHER” NUNBE RIVE aS 
9119 : B. Fn" ND PASS GAPS DR NIRB Base USES 
9120 : THE COLEST COOMBER DRIVE AS B B AND” ThE 8520 Wiener NUMBER DRIVE 
9121 : A. THE FORTH PASS SWAPS A & B AGAIN. THIS CONTINUES 
gige : UNTIL ALL DRIVES HAVE BEEN TESTED WITH THE LOWEST NUMBER 
9124 : 
9125 : THE SECOND HIGHEST NUMBER DRIVE IS THEN USED AS A AND THE 
3126 ; THIRD HIGHEST AS B. THEY ARE SWAPPED ON THE NEXT PASS. 
9128 : THIS TECHNIQUE IS CONTINUED UNTIL ALL COMBINATIONS ARE 
3129 : CHECKED. 
9131 032224 005237 o01224 11S: INC STMPI ; INCREMENT PASS CONTROL 
9132 032230 O01024 BNE 16S SKIP IF NOT ZERO 
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eevee eee eWelvelvelvelvervelvelye) 
ee ae ae ae Be tae ae Be ae be ee Be pe be ee 


GVH OLDIER LOH OBITS mr 
i 


PO OD VUE 


eee eee lvalvelvelvelvelververvelye] 
ov 
<= 


ee ae ae ae te hme Bt be be ee pe pe 


SES, 
Oo 
eg 
& 


032402 


032406 
032410 


ee ee ee ee ee ee ee eh pe pe 


eee eee eve Deve eee tees Nelvetelververvelve 
DUR LOH wo VOW! Lone ee 


030305 
001006 


WO 
N NY 


000137 


010100 
010403 


00G400 


000400 


031672 
000001 


031672 
oocode 


000406 


000400 


031672 


MACY11 30A(1 
T1l1l1 


12$: 


2e$: 


138: 
14S: 


1S$: 
001224 16S: 


001224 175: 
18S: 


19S: 


20$: 
21$: 


os2) 


N13 
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OVERLAPPED OPERATIONS 


DOODODOD ODDMWDD 
OoAMAr oO 


AMAZHMNZ DM 


322 GS 
oOo 3 
<< VU 


R3, RS 
13$ 


RC 


3$ 


;(IT WILL BE ZERO ON THE 1ST PASS) 
;TEST IF BIT POSITION FOR A AT AVAIL DRIVE 
: YES-SKIP 

UMP RO (DRIVE A) 

SHIFT wRIVE SELECT BIT ONE POSITION 

IF BIT 8 IS SET, ALL DRIVES HAVE 

BEEN CHECKED; IF NOT CHECK NEXT POSITION 
DONE-EXIT 
;SET DRIVE 8 TO THE SAME AS A 


SKIP 
LOOP 


} DONE-EXIT 


; BUMP _R1 (DRIVE B) 

FT ECTOR BIT tne POSITION 
THIS DRIVE AVAIL? 
E 


ALL POSITIONS CHECKED? 


;GO DO THE TEST ON THE DRIVE A & B 
;CONTAINED IN RO & R1 


O- 


IS PASS FLAGS 
IP 


00D? 


SWAP RO 8 R1, RB BR 
?TO EXCHANGE ORIVE A A B 


;REPEAT TEST ON THIS COMBO. 


;TEST IF PASS FLAGS AT HALF MODULE 4? 
;NO-SKIP TO BUMP DRIVE 6 


;BUMP_DRIVE 


3 SHIFT ORIVE SELECT BIT 
VAILABLE? 


-SKIP 
FALL eee 


NO-SKIE NEXT PASS 


; BUMP _DRIVE 


B 
;SHIFT DRIVE SELECT BIT 
;AVA AILABL E? 


Pp 
FALL CHECKED? 


?YES-SKIP TO NEXT PASS 
;GO TEST THIS 
;SET DRIVE 0 TO LOW POSITION THIS PASS 


:SET SELECT B 


COMBO 


ITS TO AGREE 


B14 
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CZ2REKE.P11 10-JAN-78 09:35 T1lll OVERLAPPED OPERATIONS 
9189 O32412e 005037 O0122e4 238: CLR STMP1 ;CLEAR PASS FLAGS 
$190 032416 000137 032236 JMP 2es ;G0 SET UP A&B 


$191 O3e4ee SOs: 


SEQ 0176 


so08 
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Meeceneeees F 
RESSBCRRIES 5 


Oo 
Ww 
Oo 
w 
2 
tu 
fu 


001102 
001262 


786800 


; 
é 


032470 


Poruroforurororor 


013746 
10440S 
bbcd8t 

O4el 


001304 


ee 


032S22 


Be Aue 


Foo 


013746 


1by4or 
037 


O00ille 


fororurorofotorore 


001273 
OO1lle 
oo004e 


393 
9240 626 377 377 
ooo001 
001304 


001102 
000775 


MACYI1 a tt meee 
Till 


001304 


000 
001316 
oo0000e 


C14 
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OVERLAPPED, OPERATIONS 


;ADD_WAITING LOOP FOR APT OPERATION ON JAN-9-78 REV 007 
'SBTTL END OF PASS ROUTINE 


jvasseesuset ane KheEn tae) eee 
Rs PASS R (SP 
se PA Ss OXXAXK TAL NUM er OF ERRORS SINCE LAST REPORT YYYYY™ 


; ¥WHERE X AND _YYYYY ARE DECIMAL NUMBER 
*IF THERES A A RONT TOR GO TO 
;*IF THERE ISN’T JUMP TO TSTAPT 
SEOP: 
SCOPE 


CLR STSTNM ss ZERO uy 3 rel. ru 


MBER 
CLR STIMES F ITERATIONS 


N SPA ACR NT ee . S NUM 

Aig $7 68000, SPASS He Patol" Fags NUMBER 
DEC (PC)+ 

SEOPCT: ghiORD SS 
MOV pee acPC)+ 288m COUNTER 

SENDCT: .WORD 1 
iia 65S ; TYPE ASCIZ STR 
BR 64 2 ii Ge oven tue RoC ez 

5485S: -ASCIZ <12><15>/END PASS’ #& 

: MOV SPASS, -(SP) ce spa ASS FOR FOR. TYPEOUT 

TYPOS - 560.7 ge ASCII WITH SIGN 
BR iFTyP oveR tue 6 

ijS78: -ASCIZ 7 TOTAL ERRORS SINCE LAST REPORT - 

j MOV SERTTL, -(SP) v SERTT LG F TYPE UT 

TYPDS i Tot A Rr OF ER A ROR WITH SIGN 
TYP SCRLF 11 free CARRIE RETURN, LINE FEED 
CLR $ERTTL *CLEAR ERROR T 

SGETH2: MOV gee RO 5 7 GE MONT TOR ADORE S 
BEQ DOAGN i: F NO MONITOR 
RESET *:CLEAR THE WORLD 

SENDAD: JSR PC, (RO) ?:G0 TO R 
NOP ::SAVE R 
NOP >: FOR 
NOP *tACTLL 

SDOAGN: 
JMP a(PC)+ ;; RETURN 

S$RTNAD: .WORD TSTAPT 

SENULL: BYTE -1,-1 ;;NULL CHARACTER STRING 

TSTAPT: CMPB #APTENV, SENV ;RUNNING UNDER APT MODE ? 
BNE :BRANCH IF NOT 
CMP $PASS, #2 ; THO PASS DONE 2 
BLO 'BRANCH IF NO 

1S: INC $TSTNM : INCREMENT TEST NUMBER 
BR 1$ :WAITING LOOP FOR APT DUMP THE NEXT PROG 


SEQ 0171 
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CZREKE.P11 10-JAN-78 09:35 
84 032660 000137 003204 
= 6] 
ee) 
3e83 
3556 
9258 
9259 
9260 
9261 
39262 
9263 
9264 
Se6S 032664 010046 
9266 O32666 O10146 
9267 32670 O10e46 
268 Gseere laste 
74 13746 oOO00004 
9270 O32700 013746 oO00006 
355 032704 010600 
73 7 uy 
74 93670 b932 oooo06 
9275 032714 012701 003776 
577 Giere2 bbe? 
7 
78 1 to 
ierat Obra? TF7e7e 
7 1 


A fies ieee 

Bere Bitcss Orne 
7 1162e 

& 000200 

177600 

033022 

000020 


A72R7e 


3 
033054 
033056 
033062 


177572 
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oooo004 
032722 


177740 


ooo004 
172516 


ooo004 
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END OF PASS ROUTINE 


re BF TINE Tal hz MEMORY ;REPERT THE SAME TEST IF NOT UNDER APT 


ee en cee ieee oer a 
Hy =| PC, SSIZE 
i ESLSTAD WILL CONTAIN: 


it Wi THotit: ast OPTION 


= LAST AgsoLUTe” ADDRESS. OF AVAILABLE NeMORY 
ESL STOK ULL CONTAI 


TADS The PO DENSE ee 
MUST BE SETUP BEFORE 1 THE CALL 


eerte 2 
Hernis © 9 pon’ T HAVE MEMORY MANAGEMENT OPTION 
;* DETERMINED BY ROUTINE 


$SIZE: MOV RO,-(SP) HSE RO ON THE STACK 
MOV R1;-(5P) 1 ON THE STAC 
MOV Re, - (SP) 
MOV R3;-(SP 11 Be THE STAC 
MOV J#ERRVEC, -(SP) OR VECTOR PS & PC 
MoV DBERRVEC+2,-(SP)° 


,S8Ye THE STACK POINTER 


;;SET THE ERRVEC EP THE PRESEAT olds ten PSH ON STACK 
ve tne PW IN DRERRVECE 


meu (SP)+, QHERRVECH2 

Gv, Sarre Rl up, Moores E 
$KT11: "BORD 24 5 ie 05 gee HENORY MANAGEMENT 

BPL CORE IF NO 

MOV SSKTNEX, DKERRVEC’ : tT Oita 

TST a¥SR 9 33k 1h Y 

BIS #100000, SKT11 ive --SET KT1 

CLR -(SP) INTTI I FoR ee qhORDING 

nov + BRS ste Aone OF OOAR. *s EIGHT “PDR. ’S” 
1S: MOV 47740, S4O(Re) i R= 4K, UP, RE ni 

MOV (SP), (R2)+ LORD re Bee 

ep $200, ~~ BINT on ext I ie ARE LOADED 

MOV 172 Poo, -(R2) io KI TABU tok ei 

CLR KIPAR6 FOR TESTING 

MOV aes © WERRVEC Caron TIMEOUT IF NO SR3 

MOV #20; a#SR3 ;ENABLE 22 BIT M OQE 

BR tt THIS DP- i HAS A SR3 REGISTER 
2s: CMP (SP)+, (SP)+ rs OFF THE STACK--NO SR3 
3S: INC RO’ N ON MEMORY MANAGEMENT 

MOV serge Q#eERRVEC’ ; te or OR OUT 
4S: TST itt R None X-MEM 

ADD 2) A 1K STEP 

CMP SeKtPan?, (R2) tELAST 

BHI 4§ -TRY iT 
SKTOUT: MOV (R2),R2 ::GET LAST BANK+1 

CLR assRd :: TURN OFF EMORY MANAGEMENT 

BR $SIZEX 


SEQ 0172 
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R6KE.P11 


Re Ff 


58 


ve] 
iw 
@ 


3 
3 


Diowwwwwwe F 


OWWOODWWOW 
WWWWWWW 
De be pe pe pe pe be pe pe 
WONT CWO 


oo 
iG) 
N 


pees © 


SRRENT 
: 


004000 
000040 


at 177776 


16600 004000 
000040 


BBees 


Be 


7 d00006 
7 o00004 
7 033166 
7 033170 
3 
2 
1 


i=] 
Ww 


oo 
IG) 
GWG) 


TT TT aT 


OF LROE LOLS ENON L 


Pees 
WWW 
WWWW 


27 001002 


7? O34212 
77 + 040000 


033216 OO00416 


033220 01374 
033224 Bize3 B33044 
33236 O1e637 Go0004 
O332e4%e 000500 


033246 012637 OO00004 
O033eSe 000440 


100000 032722 
0 fae O331e2 000004 
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ROUTINE TO SIZE MEMORY 
S$KTNEX: BIC #100000, $KT11 ssKT NON-EXISTENT 
SCORE: MOV #SCROUT, J#ERRVEC 54967 FOR TIMEOUT 
CLR Re UP BANK 
1S: ADD #4000,R1 i HINCREMENT BY 1K 
ADD #40, Re :1K ST 
TST (Pi) :: TRAP ON TIME OUT 
CMP #177776,R1 33 
BNE 1$ ::NO--TRY AGAIN 
$CROUT: SUB #4000 ,R1 
$SIZEX: SUB #40, Re ; i DROP BACK 
MOV RO, SP :RESTORE THE STACK 
MOV (SP)+, a#ERRVEC+2' ;;RESTORE ERROR VECTOR 
MOV (SP)+’ J#ERRVEC 
MOV R1,$LS5TAD ;;LAST ADDRESS 
MOV Re: $LSTBK ::LAST BANK 
MOV (SP)+,R3 :;RESTORE R3 
MOV (SP)+'R2 : RESTORE 
MOV (SP)+;R1 REST R1 
nov (SP)+,RO RESTORE RO 
$LSTAD: .WORD O ;;CONTAINS THE LAST ADDRESS 
$LSTBK: .WORD O ::CONTAINS THE LAST BANK 


14S724 


oooo04 


E14 


.SBTTL SCOPE HANDLER ROUTINE 


L VECEEERERSCSHOSRSRERSROSRET EERE SNHAERER SEER USERS RS STEERER SESE EE 
jATuIS ROUTINE & CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 


¥AND LOAD THE TEST NUNBER(STSINM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<1S:09> 

The, HITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

? #SW14=1 LOOP ON TEST 

4 ewilel INHIBIT ITERATIONS 

! xSWO9=1 LOOP ON ER 

; #SWOB=1 Loe ON FEST IN SWR<7:0> 

:# SCOPE ; ; SCOPE=IOT 

SSCOPE: 


R FOR CHANGE IN SOFT-SWR 
;;GO TO ERROR ROUTINE IF RETURN bi" EES THAN 1002 
j }OTHERWISE CON NTIN UE 


(SP), #1002 ; ; UNEXPECTED TRAP oR INTERRRUPT 
BHI 1$ ::ARE TRAPPED HERE VIA IOT 
IMP SERROR ::GO PROCESS UNEX' PECTED TRAP 
1S: BIT #B1T14, aSWR i LOOP ON SENT TEST? 
BNE SOV: €S IF SW14=1 
#aueeSTART OF CODE FOR THE XOR tictenas tear 
éxTSTR: BR oS ;;1F RUNNING ON THE “XOR" TESTER CHANGE 
THIS INSTRUCTION TO A “NOP” (NOP=240) 
MOV JSERRVEC, -(SP) i i SAY THE CONTENTS OF THE ERROR VECTOR 
MOV #5$, JHERRVEC >;SET FOR TIMEOU 
TST 38177060 >: TIME OUT ON X eR? 
MOV eae aSERRVEC j ;RESTORE THE ERROR VECTOR 
BR $SV viab ::G0 THE NEXT EST 
SS: CMP (SP)+, (SP)+ i ep EaR TH ACK TEP TER A TIME OUT 
MOV (SP)+'QSERRVEC ;;RESTORE cue ERROR VECTOR 
BR 7§ :iLOOP ON THE PRESENT TEST 


F14 
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CZR6KE.P11 10-JAN-78 09:35 SCOPE HANDLER ROUTINE 
9360 033254 6$:;8888BEND OF CODE FOR THE XOR TESTER##aae 
3361 G33254 032777 000400 145656 BIT #BI TOS, ISWR ; LOOP. ON SPEC. TEST? 
936. 4 005. CLR =(SP) ::CLEAR_A_TEMP. LOCATION 
9364 117 16 145646 MOVB aSWR, (SP) ::PICKUP THE DESIRED TEST NUMBER 
ace 5§ Bestia oool11 id #111, (SP) OT ONT THE ei te cue Oo 
9367 Sate BLT as. He 4 He TEST NUMBER IS OUT OF RANGE 
011637 001102 MOV (SP), $STSTNM ::UPDATE THE TEST NUMBER 
3353 8 Bpeste per (ep) + BR Ae EST NUMBER AS AN INDEX 
9371 “e Obe7 16 033516 ADD SSSWOSTBL,(SP) ;;FORM THE SS OF TEST POINTER 
3376 18 01 37 001106 nov g(SP)+, SLPAOR j}SET LOOP A RESS 10 DESIRED TEST 
9374 nines 8S: TST (SP)+ ::CLEAN THE BAD TEST NUMBER OFF OF THE STACK 
3375 ee 105737 001103 23: 1518 SERFLG HS ERROR OCCURRED? 
3377 34 123737 001115 001103 che SERMAX, SERFLG j {MAX. ERRORS FOR THIS TEST OCCURRED? 
3379 32777 001000 145566 BIT #81709, ISR ; LOOP ON ERROR? 
3381 033354 013737 001110 OO01106 73: nov SLPERR, SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
9383 4 7 4S: CLRB ERFLG ;:ZERO THE ERROR FLAG 
4 be 35 Boiaes CLR aia: ??CLEAR THE NUMBER OF ITERATIONS TO MAKE 
S38e O3397— Goe77? OOMODD 145534 3S: Ber 13 1T11, aSHR OTT ITERATIONS? > 
9387 04 637011 : BNE 1 ; :3BR I ves 
9388 03 Of 005737 001304 TST $PASS :IF FIRST PASS OF PROGRAM 
9389 o3341 14 BEQ 1$ a NHTBIT TERAT IONS 
9390 i 001104 INC SICNT :: INCREMENT ITERATION COUNT 
9391 023737 001262 001104 CMP STIMES, SICNT : ? CHECK NUMBER OF ITERATIONS MADE 
9305 58 89595? 00001 001104 1S: ay SOV EE ONT tie Tt ze The ITERATION COUNTER 
3334 36 015737 033514 001262 aap mov SMXCNT, STIMES >: SET Weer nargene To DO 
ee 4 ee 
9396 33150 1035 ? B51 1b8 001302 MOV 3} TNM, STESTN i COUNT oF IN APT MAILBOX 
9397 3456 011637 001106 MOV (SP), SLPADR i | SAVE sc LOOP ADDRESS 
g3e9 GSa4ee BOERS? | boLDeG CCR SESCAPE OE EC ESCAPE Ron ERROR ADDRESS 
9400 $3398 li 35 000001 001115 MOVB #1, SERMAX *ONLY ALL (1) ERROR ON NEXT TEST 
Ss BEER BL7ie BgLIGE NES Sover: Fey BTRAOR: CORSTU*Y 1 Ploce Nieto ORES 
9403 B3 ' £8 RTI , ;3;FIXES PS 
3404 933814 003720 SIXCNT: 2000. :?MAX. NUMBER OF ITERATIONS 
9406 03351 ‘WORD TST1+2 ;;STARTING ADDRESS OF TEST 1 
9407 O reer “WORD TST2+2 ; STARTING ADDRESS TEST 2 
gus oa3ee4 Ooie4s “WORD Tetaee TR TRRTING ADDRESS OF TEST 4 
9410 4750 "WORD TSTS+e2 tt STARTING ADPRESS OF TEST S 
9411 g 005126 "WORD TSTb+e :: STARTING SS OF TEST 6 
3412 33532 5254 "WORD TST7+2 :: STARTING REOS OF TEST 7 
9413 033534 005360 “WORD TST10+2 ::STARTING ADDRESS OF TEST 10 
8414 033536 006304 ‘WORD TSTli+2 ::STARTING ADDRESS OF TEST 11 
9415 033540 O06422 "WORD TSTle+2 ::STARTING ADDRESS OF TEST le 
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MACY11 30A( 1052) 


SCOPE HANDLER ROUTINE 


-WORD JTST13+2 


WOR tat S+ 
WOR TST36+ 
WORD TST37+e 
WORD TST4O+ 
WORD TST41+ 
WORD TST4e+e 
WOR TST43+ 
WOR: TST44+ 


WORD TST61+ 
WORD TST6e+e 
WORD TST63+ 
WORD TST64+ 


"WORD TST102+2 
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;; STARTING RO ORES 

;; STARTING RESS 

ASTIN epi es 

$3 TART NG ss 

tiRTBRTING ADDRESS 

Staring ADORESS 

ae 

+3 

{STARTING 35 

aS ae 

: BTARTING ADORE 82 

so 

5 START 

33 TART ING 

tT ARTING ADDRES 

HH Been 

START Ne Ap ORESS 

{STARTING AbDRESs 

CaS Bee 

99 A 3 

: START 

ae ss 

NGHNG Sibieae 

; START NG SS 

:tSTBRTING a8 

tFRTARTING ADDRESS OF 

i STARTING SS OF 

+t STARTING 28 SE 

ETRRTING Sobre oF 
::STARTING AD 
STARTING AD 


4 
MrT ee ee 
LWM--OnouU cw 


BBAGDRAAAAARRARARRARARAARARRARARRARARAARRARARRA 


TEST 7 
DRESS OF TEST 100 
DRESS OF TEST 101 
DRESS OF TEST 10e 


SEQ 0175 
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ee ee a ee ee ee 
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000001 
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000001 
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ooo0o04 
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034210 
034206 


034210 


001316 
001317 


000004 


001276 


034120 
oocc004 


001300 
oo0004 
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SCOPE HANDLER ROUTINE 


OED 


TST103+2 
TST104+e2 


TS 5} +2 
ABTFATL+2 


sateen onees oe eet 103 


ai eboeess 8 Test 18 


ARTING ADDRESS OF TEST 10. 


eppaees' if aL Pes 


-SBTTL APT COMMUNICATIONS ROUTINE 


1S: 


es: 


12S: 


#1.SMFLG 
$A YC 
$1, $FFLG 
RO,-(SP) 
Ri’ -(SP) 
$MFLG 


feel 


#APTSPOOL , SENVM 


34(SP),RO 
#2,4(SP) 
SMSGTYPE 


é $MSGAD 
(RO)+ 


2s 
SMSGAD , RO 

RO, SMSGLGT 
#4, SMSGTYPE 
a4(SP) 4S 

We 4(SP) 
177776, -(SP) 
PC, STYPE 
SFFLG 

12$ 

SENV 

12% 

§SMSGTYPE 

94 (SP), SFATAL 
Gad} Spe 
SFFLG 
$LFLG 
SMFLG 


NG 


;;TO REPORT FATAL ERROR 
::T0 TYPE A MESSAGE 


;;TO ONLY REPORT FATAL ERROR 
;;PUSH RO ON STACK 
ON STA 


;PUSH R1 


STACK 
£1 92OU TYPE A MESSAGE? 


FN 


BR 
PER TING UNDER APT? 
OT: BR 
Melk SPOOL MESSAGES? 
:;GET MESSAGE ADDR 


55 SEE IF 


: N WAIT 
tiBty Chir tN ite MAILBOX 
::FIND END OF MESSAGE 


si ReSsace LNCTH IR WORDS 


;;PUT LENGTH IN MA 
;; TELL APT TO TAKE TSG. 


;;PUT MSG ADDR IN JSR LINKA 


UMP 
; ; PUSH 135776 ON STA 


er ADDRE 


;;CALL TYPE MACRO 


i a he ee 
1: MOVB 


3 ABUBP RETURN ADDR. 
NE W/ LAST XMISSION? 


GE 
ss 


ONO: REPORT FATAL ERROR? 
iia a NG UNDER APT? 
HEMgHE® Watt MESSAGE? 


3 TELL bi TAKE E RRORe 


;; CLEAR 
;;CLEAR LOG 


LAG” 
;; CLEAR MESSAGE FLA 


SES 0176 


¢ ReKeO RK6 FCTNL CTR 
CZR6KE.P11 10-JAN- 

95e8 034200 012601 

9$e3 O342e0e 012600 

$530 034204 000207 

ees Baic0s 000 

95 3420 000 

9533 034210 000 

3534 O34ele 

9535 000200 

9536 000001 

9537 000100 

9$38 000040 

9$39 

9540 

3S41 

9S4e 

9543 

9s44 

9545S 

9546 

9547 

9548 

9549 

9550 

9551 

9552 

9553 O342le 

9554 O34ele 104407 

9555 034214 105237 

9556 O34ee0 001775 

9557 meted 013777 

9558 034230 032777 

9559 034236 001402 

ee ise (ou 

9562 Baueec 011637 

9$63 ote 1955 7 

9564 S98 117737 

9565 034270 032777 

9566 pase 001055 

9567 034300 Oelbe7 

azee 034304 101046 

9570 034306 016637 

9571 Salah} 162737 

9$7e M3e2 104401 

9573 034326 013746 

geod 3 10440e 
7S 4 104401 

9576 034340 Aee7 48 

or Fs lisa 

957 B34 SY 10440 
80 034 104401 

9581 O3436e Oeebe6 

9582 034364 O004ee 

9583 034366 050200 


72 


DIAG 
09:35 


036503 
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APT COMMUNICATIONS ROUTINE 
MOV (SP)+,R1 ; POP STACK INTO R1 
MOV (5P)+'RO P STACK INTO RO 
RTS PC URN 

$MFLG: .BYTE 0 ii Rezee" FLAG 

SLFLG: ‘BYTE O LOG FLAG 

SFFLG: ‘BYTE 0 SEB TAL FLAG 

APTSIZE=200 

APTSPOOL + 400 

APTCSUP= 


040 
-SBTTL ERROR HANDLER ROUTINE 


5 He AE SEE HE SE eA HE SE 2 HE HE EH a HE SE HE EE EH HE HE HE EE HE 
THIS ROUTINE WILL_ INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
; ¥SAVE 5S, eh Tres NUMBER AND THE ADDRESS OF THE ERROR CALL 


*AND GO T pha RROR 
THE garteH OP Tone P vies BY THIS ROUTINE ARE: 


SES 0177 


:*#SW1S=1 T ON ERRO 
>*#SW13=1 INHIBIT ERROR TYPEOUTS 
:*5W10=1 BELL ON ERROR 
j xSWOS=1 LOOP ON ERROR 
1% ERROR N ; ;ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR: 
CKSWR ;; TEST FOR CHANGE IN SOFT-SWR 
7$: INCB SERFLG ::SET THE ERROR FLAG 
BEQ 5 iDON'T LET THE FLAG GO TO ZERO 
MOV SPSTNM, QDISPLAY ;:DISPLAY Test NUMBER AND ERROR FLAG 
BIT wBITL 10; aSWR ; BELL ON ER ROR? 
TYPE SBELL ??RING BELL 
1S: INC SeRTIL t COUNT THE NUMBER OF ERRORS 
nov (SP) :SERRPC ::GET ADDRESS OF ERROR INSTRUCTION 
MOVB 35 SeeRRPC§ SITENB ;;STRIP_AND SAVE THE | ERROR ITEM CODE 
BIT ::SKIP TYPEOUT I 
BNE sea" ::SKIP_TYPEOU 
Sr fag nome edeaGh WS tethes ee" 1° 
; PROCESS — *% TRAP OR INTERRUES 
HOV 4(SP) ,SERR $5 GET BC PC ar TIME OF FALSE TRAP 
TYPE 10$ HO oES HEABER 
MOV SERRPC, -(SP) iF 88V5 SERRPC FOR TYPEOUT 
TYPoc :GO TYPE--OCTAL ASCII(ALL DIGITS) 
SUB 4, (SP) + sles saat FALSE TRAP VECTOR ADDR 
MOV SERRPC, -(SP) ;;SAVE SERRPC_FOR TYPEOUT 
TYPOC as ::GO TYPE--OCTAL ASCII(ALL DIGITS) 
ch tap5e csp)s ;;POP FALSE TRAP VECTOR PC3ADDR 
10S: -ASCIZ <200>’PC= ’ 


enone? RK& FCTNL CTRL DIAG 
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KE.P1l 


Thinininninunen 


Oo 
wi 


PeeeeSS ye etTtTTT ese: 


38 saa ae 8 


-OO 
wow 


tata ata ad ata 
—-OWONOU CWO 


bh ee 


furufururu 


ratatatatat at gts adalat ata 
£WrM 


$22 SEELLILELL£ 
NIFTERRDAS Sioisin’s 


0345 


034602 
034604 
034610 


020040 
O04eS20 


001402 
013716 


022737 
001001 
000000 
ooo00e 


104413 


104401 


047125 


034S34 
001273 


000001 


001114 
033762 


1444s4 


001000 


001110 
001264 


001264 
032612 


01360 
34612 


001273 


MACY11 30A( 1052) 


054105 
042105 
0201e0 


001316 
O344S4 


144440 


ooo04e 


J14 


ERROR HANDLER ROUTINE 
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SEQ 0178 


11S: .ASCIZ ° UNEXPECTED TRAP TO ’ 
ie EVEN 
ISR PC, TYPERR ;;GO TO USER ERROR ROUTINE 
nae TYPE , SCRLF 
CMPB #APTENV, SENV +s USEING IN APT MODE 
BNE 2 NO,SKIP APT ERROR REPORT 
MOVB SITEMB, 21S ::SET ITEM NUMBER AS ERROR NUMBER 
JSR PC, SATYY t TREPO T FATAL ERROR TO APT 
218: -BYTE O 
"BYTE O 
225: BR 225 ; ;APT_ ERROR LOOP 
2s: TST aSWR HALT ERROR 
BPL 33 ::SKIP IF CONTINUE 
HALT HALT ERROR! 
CKSWR i TEST FOR CHANGE IN SOFT-SWR 
3S: BIT #BITOS, ISWR *?LOOP_ON ERROR SWITCH SET? 
BEQ § ::BR IF NO 
MOV SLPERR, (SP) ?;FUDGE RETURN FOR LOOPING _ 
4§: TST SESCAPE CHECK FOR AN ESCAPE ADDRESS 
BEQ S$ : BR IF NONE 
i MOV SESCAPE, (SP) :FUDGE RETURN ADDRESS FOR ESCAPE 
CMP #SENDAD, a#42 ::ACT~ 11 AUTO-ACCEPT? 
BNE 6$ :BRANCH IF NO 
HALT i tYES 
6S: 
TI 


R ETURN 
EHH GE HEHE HHEHHEHEHHEHEHHE HAH EHHAHEHHaoEEens 


SB TTL TYPE ERROR ROUTINE 
*ENTRY JSR PC, TYPERR 
i BRE TURN RTS Pe 


; XTHIS ROUTINE USES T 
*#ERROR IS 


OQ BE REPORTED. IT THEN 


“ITEM CONTROL gvTE. (ST Tene? TO pe rear WHICH 


USES THE “ERROR TABLE” (SERR 


pHENTRY eee ne WHAT INFORMATION i TO BE REPORTED CONCERNING 
5 06 HE SE SE HE JE 6 SE AE SE A AE eA A A a HH HH ER 


pees SAVREG 
B STSTNM NM, STESTN 
7400,$ 


MOV 
BIC ESTN 
MOVB SITEMB Sate 
BIC #177400, RO 
DEC Re 
ASL RO 
ASL RO 
ASL RO 

1S: ADD #SERRTB, RO 
MOV (RO)+,2$ 
BEQ 3 
TYPE , SCRLF 
TYPE 


;GET TEST NUMBER FOR REPORT 
sehen UNUSED BITS 


;CLEAR UNUSED BIT 
;FORM INDEX FOR ERROR TABLE 


;FORM ADDRESS OF ERROR ENTRY 
3G POINTER 
;BRANCH IF THERE ISN’T 0 


ONE 
: TYPE CARRIAGE RETURN LINE FEED 
:TYPE ERROR MESSAGE (EM) 


cence, RK& FCTNL CTRL DIAG 
C2 Pl 10-JAN-78 09:35 


KE. 


03467 


j=) 


NNNNNNNNANNNSN 
DORNOT LOT EVORVOL 


reeyes yyy 


034740 


Bi 2037 


feel 


Ni oot 
Wwe 


0 
000207 


034630 
001273 


001273 


051341 
001273 


034740 


051341 
001273 
001632 
010000 
oo00e4 
053661 
o0004e 
001100 


000001 
O32e4ee 
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144154 
001632 


032450 


es: 
3$: 


4$: 
S$: 


K14 
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YPE ERROR ROUTINE 


10$: 


. WORD 
M 


0 
(RO)+,4S 

, SCRLF 

- 

(ROj+, Rl 
20s 

(RO)+,RO 
(RO)+’Re 
SCRLF 
tRO)+,R3 
(RO)+ 

3 

14S 

RY 

12% 
a(R1)+,-(SP) 


$ 
SPACE2 
$CRLF 
RO) 
14$ 
RY 
Re 
20S 
(RO)+, 18S 
10$ 
17% 
, SPACE2 
0 
SCRLF 
los 
ERRCNT 
wSL112, ISR 
820. ,ERRCNT 
, ABCRT 
42 
225 
#STACK, SP 


#1, SEOPCT 
SEOP 


;EM POINTER GOES HERE 
:GET DH POINTER 
; BRANCH Ri THERE ISN’T ONE 


TYPE DATA HEADER 
:DH_ PO NTER GOES HERE 
;GET 0 OF 

H IF THERE ARE NONE 


ET APB geet 


ORE NUMBER OF DH’S 


;GET & STORE NUMBER OF DATA WORDS 
:BUMP PAST FORMAT WORD 

;TEST IF ANY DATA FOR THIS HEADER 
;NO_- SKIP DATA PRINT 

;CHECK FOR INDENT 


;YES, GO I 
:PUT'’ FIRST DATA WORD ON STACK 


;T IT 

;MORE DATA WORDS 
;NO-BR 

+ TOP SEPARATORS 
: TYPE <CR>< 
CHECK IF NEXT HEADER AVAILABLE 


?NO DO NOT CHANGE INDLNT 
; CHANGE INDENT 
:MORE DH’S? 


;NO-BRANCH 
;GET NEXT DH POINTER 
-IF O ET ATA 


‘a 


' NO, BRANCH 
; TYPE INDENT 


sTY 
;DH POINTER GOES HERE 
;GET DATA 


; INCREMENT THE ERROR COUNT 
j CHECK IF SWITCH le SET 


ETURN 
;CHECK TF ERROR THRESHOLD EXCEEDED 
; TYPE “PROGRAM ABORTED BECAUSE 

T EXCEEDED” 


PORT TTALIZE STACK 
:FORCE END OF PROGRAM 


R PC 
NON-EXISTANT MEMORY AND INTERRUPT CHECK HANDLER 
THIS ROUTINE SETS THE INTERRUPT FLAG AND DOES AN RTI. 


SES 0179 


6KE.P1 


oo 
@ 


NOOWDDOODWVOWWWWW 
NNNNNNNNNNNANS 

Cl ed ed ee ee ee et ee | 

WO NOUL W-OWOON 


9720 


b3803e 


035040 
O3504e 
O3S046 


Oo 
vin 


oe 


WwW 
ul 
ee 


ooo 
OF LONTSVOWS 


Roe 


oOo 


3ee08 


5 RK& FCTNL CTRL DIAG 
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000240 
00S237 
000002 


032777 
001003 
012737 


0637 


00S237 
042777 
000002 


000503 


001662 


001662 


020000 
054110 
ooooo! 


oooo04 


170200 


177750 


000100 


14 
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144062 


032450 


144572 


oooo04 
000006 


001664 


PAGE 180 
NON-EXISTANT MEMORY AND INTERRUPT CHECK HANDLER 


;% THIS IS THE INDICATION TO THE ROUTINE CHECKING 
;% NON-EXIXTANT MEMORY THAT AN INTERRUPT DID OCCUR. 


NEXINT: hie INTSET ;BUMP THE INTERRUPT COUNTER 


-SBTTL RK611_ INTERRUPT HANDLE 


VP BRSLeABIRGMUE'S FEW. FP5g"¥G0" sAPEMBIOUED PLSTMES SEL" ANG, TOM 


:% JUST SETS A FLAG TO INDICATE T 
x ORS ERRUPT OCEURREDS 
INTHLR: NOP 
INC INTSET ;BUMP_THE INTERRUPT FLAG 
RTI + RETURN. 
.SBTTL MEMORY PARITY ERROR TRAP HANDLER 
;% MEMORY PARITY TRAPS WILL BE REPORTED BY THIS ROUTINE. THE REPORT 
:% WILL INCLUDE THE PC AT TIME OF FAILURE AND ABORT THE PROGRAM. 
PERHLR: BIT #B1T13,3SWR ;TEST IF INHIBIT REPORT 
BNE 1$ YES - SKIP 
YPE ,EM3 > TYPE PAR TY ERROR MESSAGE 
TYPOC ?AND PC VALUE 
1S: MOV #1, SEOPCT *FORCE END OF PROGRAM 
MOV astAck, SP :CLEAN OFF STACK 
IMP 
.SBTTL LINE CLOCK INTERRUPT HANDLER 
: THE LINE CLOCK INTERRUPT HANDLER WILL INCREMENT THE LCLKTK 
1% (LINE CLOCK TICK COUNTER) EACH TIME AN INTERRUPT OCCURS. 
LCKHLR: INC LCLKTK ; INCR MENT CLOCK TICK COUNTER 
BIC #BIT7,9KWLADD ;CLEAR MONITOR BIT 
. seer hee tit in TT Eee 
*SBTTL OPTION PRE NI Huees AND 5 
s ate RY Ree T M. F MOR GS RAE SET TF PRESENTS CLEARED 
ie vrer; THER Set KARE "oh THe s verEN TASERRG T VECTORS ARE SET U 
MOV ERRVEC, -(SP) ;STORE OLD NEM CONTENTS 
MOV ERRVECT® -(SP) 
MOV #20$, ERRVEC DET INTERRUPT FOR NEM 
MOV #PR7, ERRVEC+2 RIORITY 
CLR MENPAR te pon TY WORD EF LAGS 
BIC #PARPRE , OPTFLG AR PARITY PRESEN 
r r 170200 TEST IF 11/70 REGISTER PRESENT 
NOP 
MOV #177750,CSRPTR ;SET POINTER FOR 11/70 
BIS #CP1170; OPTFLG i SET 11/70 FL 
BIS #PARPRE;OPTFLG ;SET PARITY PRESENT FLAG 
BR 358 :GO TO VECTOR SETUP 


SEQ 0180 


CZR6KEO RK& FCTNL CTRL DIAG 


CZR6KE.P11 

eee o3e5e0 
754 3 
| eee 
9756 035232 


035236 


4 
38 4 
38 4 
980S dO35442 
035444 


035450 


10-JAN-78 


ae 2708 
JC 70 
BO0241 


012710 


09:35 
001714 


Bop001 


001670 
001716 
ars 
Ly 
4 
ooo004 
177777 
000001 
000100 


880008 


oooo00e 


035416 
001672 
000100 
ooo00e 


000001 


000100 
001670 


001716 
001670 


002000 


035050 
000340 
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001664 


oooo004 


001664 


001664 


001664 


M14 
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OPTION PRESENT TEST AND SETUP 


3S: MOV MEMBAS , R3 ;SET uP POINTER TO FIRST PARITY CSR 
MOV #1, Rd ian {TM ask 

6S: mov tas ET PARITY DETECT IN THAT CSR 
BIS MENPAR ;SET PARITY PRESENT BIT 

; i wea RE, OPTFLG Hee P PARITY PRESENT SET BEFORE 

: MOV RrVECA RO :SET UP FOR PARITY TRAPS 
MOV #408, 893° : TO 40S 
MOV 
MOV sOBUtES Dy, RO pSt] rornren. Wy TO BUFFER WHERE BAD PARITY 
Mov wB1T2, (R3) set Te DEB NG” RARITY 
MOV tR3) 90 PARITY ERROR 
ed Bo "BaD WORD 
BIC HPARPRE , OPTFLG 
MOV “ (Ra) ay Orr Feo BER FRROR ENABLE 
MOV "(R 'CLEAR BAD 

; BIC #7” (RB) > REV 

: MOV 80, (RO) ?REV O06 

10$: BD $2 °R3 1 % NEXT CSR 
RO RY ;SHIFT_ MASK 
BN 6S hey IF ALL DONE 
BR 35$ YES - SKIP 

OS: CMP P)+, (SP)+ AR_STACK 

. MOV #308, ERRVEC e NEW NEM TRAP ADDRESS 
BR O TO CSR CHECKS 

40S: CMP sah 2s Sapo age ares 
MOV R3,CSRPTR :SET C POINTER FOR CSR TO BE USED 
BIS HPARPRE, OPTFLG ;SET PARITY PRESENT FLAG 
MOV #2, (R3) Me OFF CSR ERROR ENABLE 
grt eo’ (Ra) WRITE of AESL1 K MEMORY ? 
BNE 554 ‘Apathy rE, 

; CLR (R3) ;CLEAR cor © 

' abu eee ‘Set BORO EOS PARITY ERRORS 
ae Tos Peck ‘pet a 

47$: BIC #PARPRE , OPTFLG {FORGET THEM ALL 
CLR MEMPAR ;FOR T THEM ALL 
BR 3 $ X 

30S: CMP (SP)+, (SP)+ ICL STACK 
BR :GO CHECK NEXT CSR 

35S: MOV MMVECA, RO :SET UP POINTER TO PARITY VECTOR 
rst MEMPAR Hee Thx IE ANY PARITY PRESENT 
Bit $¢P1170, OPTFLG Te T ed 10/70 

378: MOV WPERHLR,(RO)+  :SET UP PARITY VECTOR 
MOV #PR7, (RO) :SET PRIORITY 


SEQ 0181 


CZR6KEO RK& FCTNL CTRL DIAG 
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CZR6K 
9808 


oO. 


Dm bh b= bh bs be be be 
wre 


Sitissten: 


Bu 


SRR ZO 


-Pll 


454 
4 


os 


a 


paoaoaeS 
Rae? 


Gy) 
uw 


wu) 
ore 


6 


000116 


035874 


001000 
001103 
001110 


001674 
100000 


ooco0e0 
00i&52 
001674 
001674 


N14 
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ooooo4 


144170 


001664 


143332 


001664 
0016S4 


ON PRESENT TEST AND SETUP 


BR 38S 
MOV #116, (RO)+ 


39S: Hoy ;ELSE RESTORE TRAP CATCHER 
38S: MOV #NEXINT,ERRVEC ;SET UP VECTOR FOR LINE CLOCK TEST 
CLR pNexit CL AR Ry INTERRU PT COUNTER 
MOV ty L OINTER 
MOV SLEKHLATY (RO)+ i PRSERT ADDRESS OF TRTERRUPT HDLR 
MOV #PR7, (RO) : INSERT PRIORITY 
nov sBrTb, @KWLADD LOAD KW11-L FOR INTERRUPT ENABLE 
Ne 
TST INTSET ;TEST IN NEM ON KW11-P REFERENCE 
BNE 4g :THIS BRANCH WILL BYPASS SET UP OF 
;CLOCK OPTION 
BIS #LCLKPR,OPTFLG SET CLOCK PRESENT FLAG 
4S: MOV #6, R1 RESTORE OL D VECTOR 
CLR IN NTSET :CLEAR INT FLAG 
MOV (SP)+, ERRVEC+2 
MOV (SP) +’ ERRVEC 
MOV #PRO, ~(SP) ;RESTORE PRIORITY TO O 
nov #12$;-(SP) 
128: een 
RESREG 
RTS PC 
‘ - KREEKEKKAKLH RE RKSKHEKKK KEKE ERE KEK LRHA HHL KE LAKE KKK AH RRE RAK LEEK 
 SBTTL LOOP ON IN TERNAL 
; THIS ROUTINE I USED TO PROVIDE TIGHT SCOPE LOOPS. THE CALLER 
: x IS EXPECTED T b°ct ESEPERR TO THE START OF THE SCOPE LOoP 
1 TO BE EXECUTED ON ERROR. 
SCOP1$: BIT #SW9, ISWR ;CHECK IF LOOP ON ERROR 
BEQ NO, CONTINUE 
TS1B SERFLG One cK IF ERROR OCCURRED 
MOV SLPERR, (SP) s LOAD ERROR RETURN 
S$: RTI : RETURN 
-SBTTL LINE CLOCK, CALIBRATE 
:% WAITS FOR A LINE CLOCK INTERRUPT TO CALIBRATE THE INTERRUPTS 
1 TO AL MEANIN GUL TT N ADDITION IT PRESETS 
1 a THE TIMCNT IF THERE nis “nO UF iNE CLOCK. TIMCNT IS USED IN THE 
1a LINE CLOCK SIMULATOR 
CLKCAL: CLR LCLKTK ;CLEAR TICK COUNTER 
BIT #LCLKPR, OPTFLG i TEST TE CLOCK PRESENT 
mov #16. , TIMCNT SEL BE, PRESET TIMCNT 
1S: TST INTSET } TEST IF INTERRUPT | HAS OCCURRED 
BNE 25 YES- ABORT CAL IBRA TION 
rst LCLKTK ;MATT yEOR_CL CLOCK TICK 
CLR LCLKTK tO eAR TICK COUNT 
2s: RTS PC ; RETURN 


SEQ 0182 


SS SS 


CZREKEO RK& FCTNL CTRL DIAG 
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9864 

9865S 

9866 

9867 

39868 

9869 

9870 

9871 

987e 

9873 

9874 

38 

9876 

9877 

9878 

98739 035672 010046 

9880 035674 013700 001652 

9881 035700 005737 O01b6e 

9882 S704 001012 

9883 035706 005300 

9884 9035710 001373 

988S 03571e 005337 001654 

9886 035716 p18 Ss 

9887 0357 005237 001674 

38) 03$7e4 012737 000020 
035732 012600 

9890 035734 000207 

9891 

9892 

9893 

9894 

nae 

3637 

9898 

98393 

3900 

9901 

9902 035736 104413 

9903 035740 012700 000764 
035744 000463 

sa0e 035750 012709 007246 

9907 035754 Bagas? 

9908 035756 1044 

9903 035760 0127 000200 

9910 035764 o004S 

9911 B27 BR 104413 

3at5 7 0127 000077 

9913 035774 OO0044 

gis 36008 7270 000012 

9916 036004 4 

9917 036006 104413 

9918 036010 O12700 000011 

9919 036014 000437 
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—& CLOCK CALIBRATE 


.SBTTL LINE CLOCK SIMULAT ON Rout INE 
: THIS ROUTINE IS U O SIMULATE THE LINE CLOCK. TO 
;# DO THIS THE VALUE vst feo IN MILCNT IS USED AS THE 
:# BASE PRESENTS NUMBER OF TIMES A DECREMENT 
: AND BRAC LOOP CAN IN 1 MILLISECOND. TH 
1a TIMCNT VALUE IS SEOREMENTE AND IF IT REACHED O THE 
:% LINE CLOCK TICK COUNTER IS BUMPED. THEN THE TI 
i 19 RESE TO 16 (REPRESENTS 16 MILLISECONDS PER CINE CLOCK 
Ted 
i THUS THE ROUTINE RETURNS TO THE CALLER AFTER 1 MILLISECOND 
i AND BUMPS THE LINE CLOCK TICK COUNTER FOR EACH 1 16 CALLS. 
MYTIME: MOV RO, -(SP) ;SAVE RO 
MOV MILCNT,RO :SET COUNT 
1$: TST INTSET TEST IF INTERRUPT SET 
BNE aby YES - SKIP 
DEC RO : DECREMENT COUNT TO ZERO 
DEC TIMCNT ;DECREMENT TIMCNT 
BNE 2s :IF NOT ZERO - EX 
INC LCLKTK ;ELSE BUMP TICK COUNTER 
001654 MOV #16., TIMCNT jRESET TIME COUN 
2s: MOV (SP)4,R0 RESTORE RO 
RTS PC : 
.SBTTL WAIT FOR INTERRUPT ROUTINE 
; THE ROUTINE IS ENTERED BY ONE OF FOURTEEN TRAP CALLS. THE CALL 
: SPECIFIES HOW Y TICKS OF i CLOCK ARE TO ELAPSE 
1 i WHILE WAITING FOR INTERRUPT. IF INTERRUPT DOES NOT OCCUR 
1 IN THAT RIOD IME, AN SSAGE ke PREPARED 
i" (BUT NOT NTED IN THE ROUTINE) THEN RETURNS TO THE 
1a LOCATION FOLLOWING THE CALL. IF INTERRUPT OCCURS THE 
: RETURN IS B D BY 2. NORMALLY AN ERROR CALL WILL 
1 i BE IN THE LOCATION AFTER THE CALL TO INTERRUPT WAIT. 
IWATSS: SAVREG ;ENTRY FOR 8 SECOND WAIT 
MOV #500. 
8 WATSRT 
IWATIM: SAVREG -ENTRY FOR 1 MIN WAIT 
MOV #3750. ,RO 
BR WATSRT 
IWAT2S: SAVREG ;ENTRY FOR 2 SECOND WAIT 
MOV ki28. .RO 
BR WATSRT 
IWAT1S: SAVREG ;ENTRY FOR 1 SECOND WAIT 
MOV #63. RO 
R WATSRT 
IWAT1S9: AVREG ;ENTRY FOR 160 MS WAIT 
MOV #10. 
BR ATSAT 
IWAT144: SAVREG sENTRY FOR 144 MS WAIT 
MOV #9. ,RO 
BR WATSRT 


SEO 0183 
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9921 
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£o 


SERRRRROROGS FIRRNTS 
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; ENTRY 
; ENTRY 
; ENTRY 
; ENTRY 
; ENTRY 
; ENTRY 
; ENTRY 


; ENTRY 


RIFT FOR’ x 


CS1-L.DCYL. 


FOR 128 MS WAIT 


FOR 112 MS WAIT 


FOR 96 MS WAIT 


FOR 80 MS WAIT 


FOR 64 MS WAIT 


FOR 48 MS WAIT 


FOR 32 MS WAIT 


FOR 16 MS WAIT 
PRIORITY O ON STACK 


LOA 
ADDRESS 


‘COR 
;PRESET T Cc 
asia TEEOCK cep 
Hes T if PKuIIHL AVAILABLE 


est “SE EBD IRs COUNTED 

ig oo ee 641 REGS 

COMMBRO "Wb SaedP i POBLE 

AND SELECT HEADER TO IDENTIFY OPERATION 
TERRUPT LATE) 


(NO il taal OR IN 
TEST 


OF PRESENT 


“LOAD £82 TO ABORT TESTS 
t &0 TO NEXT SCOPE CALL 


‘BUN RETURN AROUND ERROR 
ines Tone REGS 


INE 
FBP Rett OHING THE CALL ARE TRANSFERRED INTO 


-MR1 IS NOT 
CE IT IS NOT wt LOADED 


r 


IWAT128: SAVREG 
nov #8. 5 
IWAT112: Wa TAB 
MOV #7,RO0 
R WATSRT 
IWAT96: SAVREG 
MOV #6 
BR EBtRT 
IWAT8O: SAVREG 
MOV #5, RO 
BR WATSRT 
IWAT64: SAVREG 
MOV #4, RO 
BR WATSRT 
IWAT48: SAVREG 
MOV #3,RO 
BR WATSRT 
IWAT32: SAVREG ; 
BR ferER, 
IWAT16: SAVREG 
MOV #1,RO 
WATSRT: MOV aPRO, -(SP) 
MOV #5$,-(SP) 
RTI 
Ss: MOV 816. TINCNT 
1S: 181 ints cLKCA 
Bt SecLKPR, OPTFLG 
BNE 
ISR PC, MYTIM 
2s: CMP LECKTK, R 
BLO 
ney™ 1-54. 
Bfe biseeat R1 
MOV (R1),DH2N ; 
MOV #EM4. EMON 
HOV TESTN, RO 
MOV $ TB(RO), srsct Pe 
SUB #2, SESCAPE 
3S: ADD #2, (SP) 
4§: RESREG 
RTI 
.SBTTL “L” REGISTER LOADING ROUT 
;% THE PARAME 
; * TH =~ © R Ss 
: i LOADED IN THIS MANNER SIN 
i FOR AN OPERATION. L.CS2 IS LOADED FROM DRVN 
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“L" REGISTER LOADING ROUTINE 


’ 
LRLOAD: 


18: MOV 


1S: MOV 


3% CALL: 


JSR R4Y, LRLOAD 
COMMAND 
WORD COUNT 


BF — SECTOR ADDRESS 
.BYTE RACK ADDRESS 
CYLINDER ADDRESS” 


RO, 0» ( $6) ;;PUSH RO ON STACK 
::PUSH R1_ON STACK 
a *cS1,R1 : GET BODRESS OF L REGS 


0 :PRESET COU 
tRao+, (R1)+ SHOVE FI EAFST FO 
BA, DA 


RO , 

Pt 

ORVNUM, (R1)+ ;LOAD carve NUMBER 

(R1)+ ; BUMP Past ASOF 

fostatan 

+ 

ceesSi6h FPO STARK HTS 

pKelt £0 TUP IS_TRANSF 

"is ER Se UE arene a WITH nN BR arats 

REGISTER C ONTENTS is S TRANSFERRED LAST 
Ub BF tet “INTERRUPT FLAG. 

RO, =(3P) ST TORE REGISTER 

#L: WC, RO ;GET ADDRESS OF SETUP STORAGE WC 
Re, R1 :GET S 

te R1 PUT R1 PAST RKCS1 

(RO)+, (R1)+ COUN 

(RO)+; (R1)+ ‘LOAD BUS ADDRESS 

(RO)+, (R1)+ 7L SK ADDRESS 

(RO)+; (R1) > LOR 2 

#6,R1 ; TO ASOF 

(RO)+, (RL)+ :LOAD OFFSET 

(RO)+, (R1)+ ; LOAD CYLINDER 

#4. R1 > BU 1 TO MRI 

(RO) (R1) + LOAD NR 

STSTAM, #7 ; E IF EST 7 

1$ IF YE 

DTYPE,L.CS1 ‘ELSE SET CORRECT DRIVE TYPE 
L.CS1, (Re) i408 5 csi 

(SP)+'R1 STORE REGISTER 

(SP)+,RO0 


; RETURN 


i THIS ROUTINE LOADS CONSTANTS EITHER FOR THR RKO& OR THE RKO7 


{DCON: TST 
BEG 


DTYPE ;SEE IF RKO6 
1$ BR IF YES 


. 
’ 
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E.Pil 10-JAN-78 09:35 OAD RK611 FOR OPERATION 
10032 036420 012737 O014S6 036476 MOV #1456,LSTCYL ;ELSE LOAD RKO7 CONSTANTS 
10033 O36426 012737 001000 036500 MOV #1000; TSTCYL ‘MAY NOT BE NEEDED 
10034 036434 037 O36576 CLR HOL 
100 440 012737 000040 036510 MOV #OTYE,HOLD3 
1903 446 7 RTS PC 
10038 450 912737 000632 036476 1S: MOV #632 ,LSTCYL ;RKO& CONSTANTS 
100 456 005037 036500 CLR TSTCYL !MAY NOT BE NEEDED 
10040 O3646e 012737 OO0e000 036506 MOV #COT, HOLD2 
10041 036470 005037 036510 CLR HOLD3 
100%e 0364 000207 RTS 
10044 036476 o00000 LSTCYL: O 
1004S 036500 000000 TSTCYL: O ;FOR T20,57,60 MAY NOT BE NEEDED 
10046 -03650e 000000 HOLD: O :FOR 773.108 
10047 036504 9000000 HOLD1: O ?FOR T1065 
10048 036506 000000 HOLDe: O :FOR 17 
10049 036510 900000 HOLD3: O ?FOR Tle 
iboet 
1905¢ : THESE ROUTINES LOAD THE CORRECT DRIVE TYPE INTO DTYPE 
10054 036512 006300 6TYPO: ASL RO 
10055 036514 016037 001722 001720 MOV TYPTBL (RO), OTYPE 
1 036522 006200 ASR RO 
10057 036524 000207 RTS PC 
10059 036526 006301 GTYP1: ASL R1 
10060 036530 016137 001722 001720 MOV TYPTBL(R1),DTYPE 
10061 036536 006201 ASR Rl 
10062 036540 o00207 RTS PC 
10063 
10064 
10065 .SBTTL STORE RK611 REGISTERS 
10066 :% ALL THE RK611 REGISTERS ARE STORED IN THE TEST TABLE T 
10067 1 i WITH THE EXCEPTION OF THE DATA BUFFER WHICH IS NOT STORED IN 
10068 1 i THIS ROUTINE. 

10070 O36542 o10046 GETRK: MOV RO, -(SP) ;STORE REGISTERS TO BE USED 
10071 O36S544 010146 MOV R1,-(SP) 

10072 036546 010346 MOV R3,-(SP) 

10073 036550 012700 oo01S40 MOV #T°CS1,RO ;SET POINTER TO TEST TABLE 
10074 036554 010201 MOV R2.R1 :SET POINTER TO RK611 BASE 
10075 556 012703 oooole MOV #10.,R3 ; SET COUNT FOR 1ST 10 REGS 
10076 562 o12120 1S: MOV (R1)4, (RO)+ :STORE RKCS1 THROUGH RKSPAR 
10077 564 005303 DEC R3 

10078 036566 001375 BNE 1$ 

10079 036570 701 ooo0002 ADD #2,R1 ;BUMP POINTER PAST RKDB 
10080 74 7 TST (RO)+ ?BUMP POINTER PAST T.RKDB 
10081 036576 012703 oo0004 MOV #4. R3 :SET COUNT FOR LAST 5 REGS 
10082 036602 012120 2S: MOV (R1)+, (RO)+ :STORE RKMR1 THROUTH RKMR3 
10083 036604 005303 DEC R3 

10084 0366) 001375 BNE 2s 

10085 036610 012603 MOV (SP)+,R3 ;RESTORE REGISTERS 

10086 036612 O12601 MOV (SP)+'R1 

10087 036614 012600 MOV (SP)+;RO 
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ZR6KE.P11 10-JAN-78 09:35 STORE RK611 REGISTERS 
10088 036616 oD00002 RTI ; RETURN 
10089 ;SBTTL BIT COUNTER IN A WORD 
100930 1 THE WORD WHOSE BITS MUST BE COUNTED IS PLACED ON THE STACK 
10091 x BY THE CALLING ROUTINE. THE NUMBER OF BITS FOUND IN THE WORD 
1009 1 ARE PASSED BACK ON THE STACK. 
10094 036620 016637 oO00002 001256 BITCNT: MOV a(SF ) $TMP16 ;GET WORD WHOSE BITS ARE TO BE COUNTED 
10095 036 010346 MOV (SP) :STORE R3 
10036 005037 001260 CLR Be HP :CLEAR STMP16 FOR COUNTING 
1 66. 012703 000021 MOV S17 Ra ?SET @ SHIFT COUNTER 
10098 036640 000241 CLC *CLEAR_ CARRY 
10099 Oabb4e 037 001256 1S: ROR STMP16 ;ROTA TE WORD. 
19100 103407 BCS 3$ WAS BIT SHIFTED OUT A 1? 
10101 0366! 005303 2s: DEC R3 iNO - UN 
10:02 001373 BNE 1$ *LOOP IF NOT ZERO 
10103 036654 012603 MOV (SP)+,R3 ‘RESTORE R 
10104 036656 013766 001260 oo0002 MOV STMP1?7,2(SP) :PUT COUNT OF BITS ON STACK 
10105 036664 o00204 RTS RY ? RETURN 
10106 O36666 005237 001260 3S: INC $TMP17 *BUMP COUNT 
19107 036672 000766 BR 2s : LOOP 
10109 .SBTTL MAINTENANCE CLOCK ROUTINE 
10110 : THE PARAMETER s PASSED To. THIS ROUTINE ARE LOCATED IN THE 
10111 1 ADDRESS OFTER T CALL RST BYTE CANTAINS THE NUMBER 
10112 1 OF PHASES ABDRESSES HE CAEL ING ROUTINE WANTS THE CONTROLLER 
10113 rr CLOCKED THROUGH AND THE SECOND BYTE CONTAINS THE NUMBER OF 
10114 1a CLOCK TRANSITIONS(PARTIAL PHASES) TO BE DONE. 
10116 036674 MCLOCK: 
10117 036674 o10046 MOV RO,-(SP) ;;PUSH RO ON STACK 
10118 036676 010146 MOV Ri’-(5P) {PUSH Ri ON STACK 
10119 036700 112400 MOVB (R4)+, RO fET UMBER OF CONTROLLER PHASE {ADDRESSES 
10120 036702 112401 MOVB (R4)+/R1 :GET PARTIAL PHASE ADDRESS COUNT 
10122 036704 006300 ASL RO ;MULTIPLY PHASE ADDRESS COUNT BY 4 
10123 036706 006300 ASL RO 
10124 036710 060100 ADD Ri ;ADD IN PARTIALS 
10125 6712 OS2762 oOO4OO ooooeS 1S: BIS aHeCK, RKMR1(R2) :SET CL OCk 
10126 0367 042762 000400 o00026 BIC #MCLK;RKMR1(Re) ;CLEAR M 
10127 67 005300 DEC RO | DECREMENT K COUNT 
10128 036730 001370 BNE 1$ LOOP IF NOT ZERO 
10129 036732 012601 MOV (SP)+,R1 ;POP STACK INTO Rl 
10130 036734 012600 MOV * acgel f<:-4 STACK INTO RO 
10131 036736 O00204 RTS 
10132 .SBTTL READ AND SORT HE 
10133 i THE HEADERS IN ene CYLINDER AND TRACK K SPECIFIED BY 
10134 1 HE FIELDS IN THE “L” REGISTERS ARE READ AND STORED IN 
10135 1 i ASSCEND DER. CONTROLLER ERR RS BRE CHECKED IN THE 
10136 1 READ HEADER OPERATION AND DATA LATE IS CHECKED AFTER 
10137 1 i EACH READ OF THE DATA BUFFER. 
;* 
10139 1% CALL: JSR R4, RDSTHD 
10140 1% TCHKOP ;RETURN POINT IF CERR IN READ HOR 
10141 :% ERROR 4 ;0R 5S, 6, 7 
10142 1% ERROR 13 ;RETURN IF DATA LATE _IN DB UNLOAD 
10143 1% ERROR 2 "RETURN IF TO SLOW OR 


kgneree RK& FCTNL CTRL DIAG 
6KE.Pil i0-JAN-78 09:35 


036740 
100000 


42732 
ooo026 
010000 


ooo0e4 
070414 


oO 

~~ 
muro tu 
NNENNOISNE 


ol ee ee ee ee en ee ed & 
OON0000000000 FB 
i tataptitetat theta 


o000 
peat at 


Aiitet =: 


Sooo: 


wr 
“N 


Oo 
8 
000 
ee 
<£ 
i=) 
- 


Bt 762 001606 


001662 
oos737 Obie74 
001770 
ooco06& 
bea7o2 
OOO466 


36 005762 
4e 100474 


011324 
037146 011324 
011324 


005762 
100443 


07325 


032737 


000000 


Se 000010 
037156 


100000 


000100 


4 
u? 
48 
SO 
ee 
53 
S4 
SS 
S56 
57 
$8 
S93 
60 
=) 
63 
64 
6S 
7 
es 
70 
71 
Ze 037 
73 
74 
75 
76 
44 
75 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
30 
91 
Se 
93 
94 
35 
96 
97 000037 
98 

33 


ee ee ee ee ee ee a me ee ee he ee 


MACY11 30A(1052) 


G15 


10-JAN-78 09:57 PAGE 188 


READ AND SORT HEADERS 


.# 


RDSTHD: 
001664 


20$: 
001600 


1S: 
000010 


0016S4 2S: 


38: 


oo0006 
001370 
001372 


4$: 


001664 


142506 
ooocoGe SS: 


SAVREG 
BIT 


#LCLKPR, OPTFLG 


;1F HDR O NOT FOUND 


ane IF CLOCK PRESENT 


20 N 
OKWLADD ;RESET INTERRUPT 


#26, RO 
SCFAT,L..CSL 


L.DCYL, RKDCYL ( Re) 


@ DA, RKDACR2) 


4 
PC, MYTIME 
LCLKTK 

3$ 


#6,6(SP) 


#EM4 . EM2N 
sOPERCN, DHeN 


R 
1 
( 
i 


DDD —-AzA 8 


RKCS2( Re) 

8S 

RO 

es 

#LCLKPR, OPTFLG 


§ 
#8176, JKWLADD 
#37,2tR1) 


(R1)+, (R4Y)+ 


; PRESET "FOR 26 SECTOR FORMAT 
51S ae in MODE SET? 


es CHANGE TO 24 SECTOR MODE 
UT BUFFER 


33 F ADDRES 
:SET UP POINTER TO RKDB 


; LOAD DRIVE NUM 
ALORS CYLINDER _NUM 
OAD TRACK AND SECTOR 


,SET TIME COUNTER 
;CLEAR INTERRUPT FLAG 
; CLEAR Mes COUNTER 
:SET ORV TYP 

;LOAD COMMAND 


TEST IF INT OCCURRED 
;YES_- SKIP 


3W 1 MS 
Have WE WAITED 16 MS? 
NO - LOOP ON WAIT 


SET pe TaN FOR TO SLOW 
;LOAD MESSAGE “TO SLOW/NOT COMPLETE” 
;LOAD COMMAND “READ HEADER” FOR REPORT 


; TEST FOR CONTROLLER ERROR 
;YES - SKIP 


; STORE HEADERS 


;TEST IF DATA LATE 
;YES - SKIP 


;DEC SECTOR COUNT 
;IF NOT ZERO - LOOP 


; TEST IF CLOCK PRESENT 


SET a gd ENABLE 
EROSR T_ TOP OF BUFF=HEAD 0? 


YES - SKIP 
iyFie MOV THIS HEADER TO BOTTOM 


SEQ 0188 
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READ AND SORT HEADERS 


001370 


No 
AW 


10$: 


i 


GETORS: 
ooo000 


18: 


000010 2: 
000000 
3$: 


SEQ 0189 


MOV (R1)+, (RY)+ 
MOV (R1)+) (R4Y)+ 
DEC RS j TEST FO INSURE HEAD 0 IS FOUND 
BNE S$ tIF ALL HEADERS NOT CHECKED - LOOP 
MOV #EMS6, EMON ‘ELSE "HEADER O NOT FOUND” MESSAGE 
CLR DHers 
BR 9g ; SKIP 
MOV #IBUFF ,RO ;GET TOP OF IBUFF 
MOV (R1)+, (RO)+ :MOVE HEADERS SO THEY START AT TOP OF IBUFF 
MOV (R1)+; (RO)+ 
MOV (R1)+; (RO)+ 
CMP RO, RY ;ALL HEADERS MOVED? 
BNE 7$ :NO - LOOP 
ADD #10,6(SP) ;SET UP FOR GOOD RETURN 
BR 11$ 
MOV ae EM Asn ;"DATA LATE SET RESULT OF READ DB” 
MOV RDB FO11A 
ADD Pp) ;SET ERROR RETURN 
TGETRK :GET RK REGS 
MOV om, RO GET cteste NUMBER 
ASL > SHI R_ INDEX 
MOV SovgeTe( 8D), , SESCAPE SeT_E SCAPE 
SUB ;70 NEXT SCOPE CALL 
RESREG 
RTS RY 
ET DR ti are 
THIS RO U INE g S ALL THE DRIVE STATUS AND PLACES IT IN SREGI1O 
THESE REGISTORS ARE FIRST CLEARED 10 ALL ONES AND 
THEN” oe She Sa ” SccuRS WHILE GETTING STATUS, THE 1’°S ARE LEFT 
IN THE REGISTERS. 
JSR 
"BR ERAS R "DRS CESSING ERROR RETURN 
R RROR PROCESSING OOD RETURN 
sovene #CCLR, RKCS1(R2) AR_ANY 0 RRORS LAYING AROUND 
HOV aSREGIO KB iBRESE BLL ts BF RAGE Fo 
MOV 87077, (RO)+ 
Be 
MOV #$REG12,RO ;SET POINTER TOREG12 FOR AO] & BO1 
MOV #1,R1 :PRESET FOR PAI ‘ 
CLR STAMPS ?CLEAR ERROR SWITCH 
MOV L.CS2,RKCS2(R2) ;LOAD DRIVE # 
MOV R1. RKMR1 (RE) ?LOAD_MR1 
MOV BtTO, RKCSI(R2) 3D0 SELECT | 
MOV #40.,R WAIT FOR A FEW MICRO RECORDS TO 
DEC 3 ‘BIT SELECT FINISH 


CZR6KEO RK& FCTNL CTRL DIAG MACY11 30€(1052) 10-JAN-78 09:57 PAGE 190 SEO 0190 
CZR6KE.P11 10-JAN-78 09:35 GET DRIVE STATUS 
10256 037432 001376 BNE 3$ 
19287 037434 036762 100000 oj0000 BIT BCERR, ,RKCS1(R2) sANY_ ERROR SET AS A RESULT OF SELECT? 
10253 g37ua4 03e76¢ o24000 o00000 BIT #CTO!SPAR, RKCS1 (RE) CHECK IF TIMEOUT OR PARITY ERROR 
10261 7454 99392 037400 oo00010 BIT #27400, RKCS2(R2)’ est FOR ERRORS: 
1o5e5 037462 001405 BEQ 4g NO ag | eonguanie taeceocraypite. 
10264 4 012737 000001 001230 8: MOV #1,STMP3 :SET ERROR FLAG 
10268 eae Geeoeg cMP (RO)+, (RO)+ s guNe TO LET THAT PAIR STAY ALL 1°S. 
ibSe9 feral O16220 000034 4$: MOV RKMR2E(R2),(RO)+ ;STORE A WORD 
10268 16220 000036 MOV RKMR3(Re)?(RO)+ ;STORE B WORD 
10269 03 Olerbe 100000 ooo000 ss: MOV #CCLR, RKCS1(R2) ;CLEAR ANY OLD_ERROR IN COnTROL LER 
isert Barele Boiard ee tS A pnlbigatontg: Ee 
10272 03 005201 INC R1 tELSE BUMP TO NEXT PAIR 
10273 0375¢e gee701 oooc04 cnP #4, Rd ;PAIR 3. ,pust STORED? 
10275 633, 005001 CLR R1 ‘ELSE SET TO PAIR O 
10276 03763¢ 012700 00i202 MOV 4SREG1O, RO PRESET POINTER FOR PAIR O 
10278 037540 thd 6S: RESREG 1 OOF HERE 
10273 g37ele 0057.37 001230 rst $TMP3 es ERROR IN STATUS GETTING 
10281 037550 9005724 TST (RY) + ELSE pRunP PART ERROR 
1deBe 037552 000204 73: RTS RY PRETO 
ibeee Vwi THE “SUBSYSTEM IS INITIAL TALIZED WITHA f SUBSYSTER CLEAR 
10286 iS COMMAND. R AND br ARE’ EON HT ORED OR A SHORT 
10287 5 SERTOD OF tone DURING WHICH THEY SHOULD BOTH RESET 
19289 i IF THEY DO RESET, READY IS TESTED TO INSURE IF SETS. 
10291 1 F ANY OF THESE THREE CONDITIONS ARE NOT MET AN APPROPRIATE 
10895 H RETURN TO THE CALL IF EVERY THING 15 GOOD, THE RETURN: 
192894 i SKIPS OVER THE ERROR CALL AND TEST ABORT. ’ 
10296 1 THE USUAL CALL TO THIS ROUTINE WILL BE FOLLOWED BY 
10297 1% AN ERROR MESSAGE AND BRANCH TO END OF TEST. TH 
10298 i 1S DONE BECAUSE FAILURE TO INITIALIZE CORRECTLY IS FATAL TO 
10300 ‘ 
10301 037554 SSINIT: 
10308 037554 010046 MOV RO,-(SP) 3; PUaH RO ON STACK 
10303 037556 010146 MOV R1;-(SP) ‘PUSH R1 ON STACK 
10304 037555 012701 o00007 MOV #7°R1 :SET CLEAR COUNT 
103 037564 012700 001600 MOV #L°CS1,RO :GET ADDRESS OF “L” REGS 
10306 037570 012720 000100 MOV #100, (RO)+ ;PRESET CS1 INTR ENABLE 
10307 7574 005020 7$: CLR (RO)+ *CLEAR THE NEXT 
10308 037576 005301 DEC R1 :COUNT 0? 
10303 037600 001375 BNE 7$ :NO - LOOP 
10310 037602 012762 o00040 oj0010 MOV #SCLR,RKCS2(R2) :CLEAR SUBSYSTEM 
10311 037610 012737 oo00012 O01222 MOV #10. ,$TMPO :SET A COUNTER 


J15 
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CZ2R6KE.P11 10-JAN-78 09:35 SUBSYSTEM INITIALIZE AND INITIALIZE STATE TEST 
10312 037616 016237 oOO00000 o01S4O 1S: MOV RKCSI(R2),T.CS1 ;GET CSL 
10313 0376 036737 140000 001540 BIT #CERR!IDI,T.CS1 ;TEST IF ERROR OR DI SET 
19314 0376 433 BEQ 2g :NO_- SKIP READY TEST 
1031S 037634 bos33 001222 DEC $TMPO ;ELSE BEGREMENT COUNTER 
10316 03764 1366 BNE 1$ ND LOOP 
10317 03764 737 100000 001540 BIT #CERR,T.CS1 STEST - IS IT CERR STILL SET 
10318 376 1404 BEQ 3$ +NO SKIP TO DI MESSAGE 
19318 0376 012737 oS42S53 001400 mov #EMS, EMSN : MESSAGE (SUBSYS CLR NOT RESET ERROR) 
te 1 p32 p00 733 054317 001400 35: MOV #EM6, EM3N ;MESSAGE (SUBSYS CLEAR NOT RESET DI) 
10322 7670 104420 4§: TGETRK 
10323 767 13700 001302 MOV $TESTN, RO ;GET PRESENT TEST NUMBER 
10364 7 906300 ASL R ‘SHIFT FOR INDEX 
10 7 16037 033516 001264 MOV S$SWOSTBL(RO),SESCAPE ;LOAD ESCAPE TO ABORT TEST 
10326 7706 162737 OO00002 001264 SUB #2, SESCAPE 3S! tO NEXT SCOPE CALL 
1032 7714 012601 MOV (SP)+,R1 ;POP STACK INTO Rl 
10328 037716 012600 MOV (SP)+/RO ; : POP STACK INTO RO 
10329 77 000414 BR 6 beet TO EXIT 
10330 77ee 032737 OO00200 oo1S4O 2s: BIT #RDY,T.CS1 i TES READY SET 
10331 0377 001004 BNE S$ YES - GOOD EXIT 
10332 037732 012737 OS4376 001400 MOV aEN7, EMSN MESSAGE (SUBSYS CLR NOT SET READY) 
10333 037740 000753 BR 4§ 
10334 037742 012601 S$: MOV (SP)+,R1 ;RESTORE REGS 
1033S 037744 012600 MOV (SP)+’RO 
10336 037746 062716 ooD000e ADD #2, (SP) ;GOOD RETURN 
10337 037752 oo0002 6S: RTI 
10339 .SBTTL WORD COUNT AT END OF OPERATION CHECK 
10340 : THIS ROUTINE COMPARES THE CONTENTS OF THE TEST STORAGE FOR 
10341 1 THE WORD COUNT AGAINST THE SUPPLIED VALUE. IF UNEQUAL, THE 
1034¢ 5 ERROR FLAG (WCERR) IS SET IN GROUP 4 ERROR FLAGS FGRPYER) 
10344 :#CALL: JSR RY, CHKWC 
10345 1 a . WORD ;EXPECTED WC VALUE 
10347 037754 012437 050322 CHKWC: MOV (R4)+, EXPWC ;STORE EXPECTED VALUE 
10349 037760 023737 oSO322 o01S42 CMP EXPWC, T.WC COMPARE 
10350 037766 001406 BEQ 1$ :EQUAL - SKIP 
10351 037770 052737 o00001 oS50360 BIS #WCERR,GRPYER ;SET ERROR FLAG 
10352 037776 013737 OO1S42 050336 MOV T.WC, REALWC ; STORE REAL WORD COUNT 
10353 040004 o900204 1S: RTS RY ; RETURN 
10355 .SBTTL BUS ADDRESS AT END OF | OPERATION CHECK 
10356 :% THIS ROUTINE COMPUTES T EXPECTED BUS ADDRESS AT THE END OF 
10257 1 i A TRANSFER BY USING THE NITIAL BUS ADDRESS, ADDING IN THE 
10358 7" INITIAL WORD COUN AND - SUBTRACTING ANY RESTOUAL WORD COUNT. 
10359 1 a IF THIS COMPUTED BA DOES NOT EQUAL THE CONTENTS OF RKBA 
10360 ix AN ERROR FLAG (BAERR) IS SET IN GROUP 4 ERROR FIELD (GRPYER) 
10362 * IF BUS ADDRESS INCREMENT INHIBIT WAS SET, THE EXPECTED BUS 
10363 + ADDRESS IS THE STARTING BUS ADDRESS. 
10364 :*¥CALL: JSR R4, CHKBA 
10366 O40006 o10046 CHKBA: MOV RO,-(SP) 
10367 O40010 010146 MOV R1;-(SP) 
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ZR6KE.P11 10-JAN-78 09:35 BUS ADDRESS AT END OF OPERATION CHECK 
10368 o40012 010346 MOV R3,-(SP) 
103639 040014 032737 oO00020 001610 BIT #BAI,L.CS2 ;TEST IF BAI SET 
19370 0022 GO1304 BEQ 4§ :NO - SKIP 
10371 013737 001604 050326 HOV LBA, EXPBA ‘STORE EXPECTED BA (SAME AS STARTING BA) 
19373 oY 3g 0 7a6 001602 4G: mov L AWC, RO ;GET INITIAL WORD COUNT 
ee 
10375 113703 001601 MOVB L.CS1+1,R3 ;GET BA16 & BAI7 
10376 040046 042703 177774 BIC #177774,R3 :CLEAR UNWANTED BITS 
10378 gu00se 005700 TST RO ;TEST IF_INITIAL WORD COUNT O 
10379 4 001003 BNE 6$ :NO_- P 
10380 g400 Obe703 oo0002 800 #2 ,R3 ; 800 2 TO BAL6,17 (65K WORD XFER) 
10382 0064 005700 6S: TST RO :TEST IF _INITIAL WC BIT 15 SET 
10383 0066 100001 BPL S$ *NO - SKIP 
10384 05203 INC R3 :BUMP_BA16,17 (32K _WORD XFER) 
10385 7 6300 S$: ASL RO ?SHIFT WORD COUNT TO MAKE MEM ADD CNT 
10386 040074 3700 001604 ADD L.BA,RO ‘ADD IN START BUFFER ADD 
10387 100 5503 ADC R3 :IF CARRY - ADD INTO BAI6,1 
10388 102 013701 oois42 9S: MOV T.WC,R1 :GET END OF OPERATION WORD COUNT 
{esse Suolts Bseu8! eat pone Las 
10391 O401l2 005701 TST Ri ;TEST END OPERATION WC BIT 15 SET 
10392 O41 14 100001 BPL 7$ :NO -_SKIP 
10393 116 005303 DEC R3 ‘DEC BA 16,17 (32K WC LEFT) 
10394 040120 Ol 7$: ASL R1 :SHIFT WC TO MEM ADD CNT 
10395 oud lee 60100 SUB R1,RO :SUB FROM C MPUTED BUS ADDRESS 
10396 1 3 SBC R3 ‘SUB CARRY FROM 6A16, 17 
iesse uoiss B1See, 05038! atte hire ec ee ees 
19398 o4013 620037 001544 35: CHP RO, T.BA EQUAL 10 COMPUTED? 
, s 
10401 O40144 052737 o00004 050360 BIS #BAERR,GRPYER ELSE SET BAERR FLAG y 
1040e gud15e 013737 001544 oO50342 MOV T.BA, REALBA :STORE REAL BUS ADDRESS 
1040 160 1137 001541 2s: MOVB T.CS1+1,R3 *GET REAL UPPER BA 
10404 040164 0427 177774 BIC #177774_R3 ‘CLEAR UNWANTED BITS 
1040S 040170 020337 050324 CMP R3, EXPUBA :CHECK IF EQUAL 
10406 O40174 0014 BEQ 8S :YES - SKIP 
10407 040176 052737 o00002 050360 BIS #UBAERR,GRPYER ;ELSE SET UBA ERROR 
10408 O40204 010337 OS0340 MOV R3, REALUB :STORE REAL UPPER BA 
10409 040210 012603 Qs: MOV (SP)+, 
10410 O40212 012601 MOV (SP)+/Ri 
10411 040214 012600 MOV (SP)+’RO 
10412 040216 o00204 RTS RY 
10414 .SBTTL CYLINDER, TRACK,SECTOR TEST AT END OF OPERATION 
1041S + THIS ROUTINE CHECKS THAT THE CONTENTS OF THE RKOCYL_ AND RKDA 
10416 1 ARE CORRECT FOR ANY SIZE DATA TRANSFER AT THE END OF THE 
10417 1 a OPERATION. THE CONTENTS OF THE LOAD REGISTER STORAGE ARE 
10418 t COUNTED ON TO HAVE THE INITIAL VALUES TO MAKE THE 
10413 5 NECESSARY CALCULATION. 
10421 1 i ALL THREE VALUES ARE GENERATED AND STORED IN EXPECTED VALUES 
10422 1 STORAGE EXPCYL, EXPTRK, EXPSEC. ALL 3 ARE CHECKED AND 
10423 1 i IF ONE OR MORE ARE WRONG, THE CORRESPONDING BIT IN THE 
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R,TRACK,SECTOR TEST AT END OF OPERATION 

ERROR FLAGS FIELD (GRPYER) IS SET. 

JSR R4Y, CHKCTS 

SAVREG 

MOV L.WC,RO + 3 SPECIFIED WORD COUNT 

NEG RO i NEGATE IT 

MOV T.WC,R1 ;GET_END OF OPERATION WORD COUNT 
BEQ 10$ ;IF ZERO - SKIP 

NEG R1 ;NEGATE IT 

SUB R1,RO ; COMPUT 2 ACTUAL es TRANSFERRED 
+L Rl 1 FOR COUNTING 


CLE 
HE FOLLOWING CODE DETERMINES HOW MAY SECTORS OF DATA HAS BEEN 
PES 5 THE OPERATION, ONCE IT HAS COMPUTED THAT, TH 
A _— VALUES FOR THE CYLINDER, TRACK, AND MgetTOR 


F OP 
cre 
BGT 
INC 
SUB #400, RO 
BR 
TST RO 
BEQ 3$ 


INC 

AT THIS POINT R1_ HAS A_COUNT OF e's 
NUMBER OF FULL SECTOR TRANSFER + 1 IF A 
1 ita SECTOR WAS TRANSFERRED. 


#26,R 

BIT aCFAT,L.CS1 

BEQ 4g 

MOV #24,R 

R3 HAS BEEN’SET UP WTH THE NUMBER 

OF SECTORS IN A TRACK FOR THE FORMAT USED 

MOV L.DCYL,EXPCYL ;GET STARTING VALUES FOR CYLINDER 
MOVB L.OT,R4 : TRACK 

BIC #177400, R4 

MOVB L.0S,RS ; SECTOR 

BIC #177400,RS 

DEC R1 sADJUST COUNT FOR ZERO DETECT 

INC RS :BUMP SECTOR COUN 

CMP RS, R3 030 THIS MAKE SECTOR COUTN > 1 TRACK? 
CLR RS *ELSE CLEAR SECTOR COUNT 

NC RY :BYo” TRACK T 

cn am D _THIS MAKE TRK COUNT > 1 CYLINDER? 
CLR e CLEAR T TRACK COUNT 

INC EXPCYL R COUNT 
DEC Ri 
BNE S$ OF CER 0 - T ex IT 
MOV RY, EXPTRK :STORE EXPECTED TRACK 
MOV RS’ EXPSEC ; STORE EXPECTED SECTOR (CYL ALREADY SLOW) 
CMP T.OCYL,EXPCYL ;TEST IF CYLINDER OK 
BEQ 7$ vee KIP 
Bis #CYLERR,GRPYER NO - SET ERROR FLAG 
CMPB R4Y,T.DA+1 :TEST TRACK OK 


SEQ 0193 
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CZ2R6KE.P11 10-JAN-78 09:35 CYLINDER, TRACK,SECTOR TEST AT END OF OPERATION 
1 4 ;YES -_SKIP 
ibag1 eines 052737 o00020 050360 BTS SFRKERR, GRPYER ?NO - SET ERROR FLAG 
1048¢ o4o43 120s 7 001546 8S: chee Re, 1.DA ; TEST _SECTOR COUNT OK 
104 4 3393 40 050360 BIS WSECERR,GRPYER {USE SET ERROR FLAG 
104 18700 36 9S: MOV #PEALWC. RO 
1 4 0137 1542 MOV T.WC, (RO)+ ;STORE REAL WORD COUN 
10487 60 0137 20 001544 MOV T.BA, (RO)+ ST ORE REAL BUS ADDR Pes 
10488 tata 133 iB 901560 MOV T-DCYL, (RO)+ ?STORE REAL CYLINDER ADDRESS 
19483 o40420 1137 1547 MOVE T, A+T, (RO) :STORE REAL TRACK ADDRESS 
10491 040476 1137 70 001546 MOVE __—T..DA, (RO) ;STORE REAL SECTOR ADDRESS 
10492 g40s0e 104414 RESREG 
10433 0504 04 RTS RY 
1049S .SBTTL OPERATION CHECK ROUTINE 
10496 : THIS IS WHERE ALL HARD nEBROR INDICATORS AND SOME SOFTWARE 
10497 i ERRORS ARE CHECKED. THE RAL PROCEDURE FLOW IS AS FOLLOWS: 
10498 1 i THE ROUTINE, 1 CALLED WITH A TRAP (TCHKOP). THE LOCATION 
10493 $x FOLLOWING TRAP CALL WILL HAVE AN ERROR TRAP_WHIC 
10500 1 a THE ROUTINE WILL BYPASS IF NO ERROR IS FOUND. IF AN 
ieeae i BROG JS SOE Thee" Sued ust 'One Eamon teat EIEN EAD 
10503 1% BE He eROPER Tres FOR THE FORRA REQUIRED By HATS 
10504 $i ERROR. THE ERROR TRAP WILL BE MADE EITHER ERROR 4,5,6 
10505 1% OR'10. REFER TO THE ERROR ITEM TABLE FOR A DESCRIPTION 
10506 : of Fane FORMAT AND WHICH ERRORS ARE DISPLAYED IN WHAT 
18808 s 
10509 o40S06 104413 CHKWE: SAVREG 
10510 040510 011600 MOV (SP) RQ 5 GET POINTER 10 ERROR WORDS 
10511 O40Si2 012037 oo12e4e MOV (RO)+, STMP1O ;STORE EXP’ D ERR OR GROUP 
10sie Ou0a1g O1e037 o01e44 MOV (RO) +, STMP I jSTOR EEE GTED ER OUP 
ipet4 040526 B1o016 — MOV RO {gap Pt STORE R STURN RROR GROUP 
1051 73? 177777 001250 MOV #-1 STMP13 :SET FLAG - EXPECTED ERROR 
1B81e pybese Ba ne Gr CHKst : 
10518 O40S¥O 104413 CHKOP: SAVREG 
16818 o40S4¥2 005037 001250 CLR STMP13 ;RESET EXPECTED ERROR FLAG 
10521 O40S546 104420 CHKST: TGETRK GET 611 REGS IO TRAP 
teess Gigeey Gosta, 50986 ch ELE webapp 
10524 O40560 005037 050356 CLR GRP3ER 
10525 gud=64 905037 050360 CLR GRPYER 
10526 5037 050474 CLR GPSUMF ;CLEAR SUMMARY FLAGS 
10527 040574 032737 024000 001540 BIT NCSIERBIT,T.CS1 ; ;TEST IF ERROR SET IN cS1 
13888 ou0e03 323? 177400 001550 Bit #CS2ERBIT,T.CS2 ; ite T “1P“ERROR SET IN cS2 
1De32 bs 4 e7 7 000070 oo1sSs2 i aQSERBIT,T.DS TEST IE IE FRROR SET IN DS 
10533 oudbe4 008737 001554 rst T,ER j TEST = ERROR SET IN ER 
10535 040632 032737 100000 o01540 BIT #CERR,T.CS1 : COMBINED ERROR SET? 


eee ee eee 
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1 40640 001405 BEQ 9g :NO_- SKIP 
16238 aust 052737 100000 oso3se2 BIS #CERNER,GRPIER SET ERROR FLAG IN GROUP 1 
19538 040650 006137 061400 IMP 25s : SKIP 
10540 ; CODE TO CHECK WORD COUNT, BUFFER ADDRESS, CYLINDER, TRACK, 
10541 : AND SECTOR AT THE END OF’ THE OPERATION. THIS IS DONE ONLY 
1054e : IF CERR NOT SET BY THE OPERATION. 
10544 : ALL OF THE ABOVE CONDITIONS ARE CHECKED AND A BIT SET FOR 
1054S : EACH CHECK THAT FAILS. HOWEVER, ONLY ONE ERROR IS REPORTED. 
10546 : THE ORDER OF PRIORITY FOR REPORTING THE ERROR IS THE ORDER 
1Beq ; LISTED ABOVE. 
ibe4s 940654 005737 001250 9g TST STMP13 ;TEST IF ERROR EXPECTED 
10550 040660 001402 BEQ 62S :NO - SKIP 
10551 O40662 000137 041400 IMP 2c¢ :YES - JUMP 
105 D666 13700 001540 62S: MOV T.CS1,RO ?GET CS1 
105: 06 2700 177741 BIC #177741, RO :CHECK IF OPERATION IS READ DATA, 
10554 76 27 000020 CMP #20, RO :WRITE DATA, OR WRITE CHECK. IF 
10555 Oe 4 BLT 3 :NOT, SKIP ALL CHECKING IN GROUP 
1 56 000030 CMP #30,RO > FOUR 
10557 04071 304, SGT 35 
10558 71 4437 037754 JSR R4, CHKWC ;CHECK WORD COUNT 
1055 . WORD : iE CTED ag NT 
1 44 040006 ISR 4, CHKBA : CHECK ADDRESSS 
10561 004437 oO40220 JSR R4! CHKCTS :CHECK CYL, TRACK, & SECTOR 
105 738 O31435 050360 TST GRPYER i ANY ROUP 4 ERRORS? 
10564 16037 OSO476 061434 MOV CMNDLB(RO),DFO10A ;LOAD SS OF COMMAND MESSAGE 
10565 o40744 3700 050360 MOV GRPYER, RO ;PUT GROUP Gg ERROR FLAG IN RO 
10566 o 7 5001 CLR R *CLEAR Rl FOR INDEX COUNTE 
1056 07 006200 iS: ASR RO :SHIFT FLAGS - FIRST ONE ON RIGHT IS ERROR TO 
10568 040754 103402 BCS 2s >BE REPORTED REST ARE IGNORED 
1056 O40 0057 TST (RO)+ ; WHEN AN OR 113, FOUND 
1pes0 fa BeOS? 050362 O01450 2S oey bg puns (RO) EMION’ oi TH ET BNO SE SSAGE ASSOCIATED TO 
13878 Bu? 16037 050322 o01202 MOV EXPWC (RO), $REGIO POINT TO THE MESSAGE. LOAD REGIO & 11 
10573 040776 016037 050336 001204 ‘ MOV REALWC(ROS,$REG11’:WITH EXPECTED & IS VA 
ipere O4iobe o127%¢ oooD10 ocooDDD MOV” #10, a¢SP) iE MERSIN port to Te : 
10576 tae Basooe RTI : * RIGHT There ENTRY & RETURN. 
10577 041016 3S: 
10578 O41016 104414 RESREG 
10579 041020 062716 coDDo02 ADD #2, (SP) ;BUMP_RETURN PAST ERROR 
10580 041024 oo0002 RTI RETURN 
10582 se THE FOLLOWING CODE BUILDS THE GROUP 1,2, & 3 ERROR WORDS. 
105. 41026 012700 os0352 4S: MOV #GRPLER, RO ;SET UP GENERAL REGISTER AS POINTER 
1Bege 641638 btS5B4 001540 MOV “A, #T.CSI,R1 :CS1 
10586 041036 612703 O01550 MOV #T.CS2°R3 :¢52 
10587 O41042 012704 o01552 MOV #T.0S.R4 :DS 
19588 O41046 O1270S5 o01554 MOV #T-ER;RS ?AND ER 
10530 0410S2 051540 BIS (RS), (RO) :SET ALL BITS IN GRPIER THAT 


:CORRESPOND TO ERROR BITS IN RKER 


LLL LLL LL LL CT CE CCC CCS ett tt et te “tt tt —— 
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ZREKE.P11 10-JAN-78 09:35 OPERATION CHECK ROUTI 
19592 041054 042710 120701 BIC #ILF!ECH!BSE!HVRC!OPI!DCK,(RO) ; CLEAR ALL THAT DON’T BELONG GRPI 
10°94 041060 032711 O20000 BIT #SPAR, (P1) ;TEST IF SPAR SET 

1058S 041064 001402 BEQ 5 :NO_- SK 

10536 041066 GS2710 000001 BIS #SPARERR,(RO) SET SPAR ERROR FLAG 

10598 041072 032714 000010 S$: BIT #ACLO, (R4) ;TEST ACLO SET 

10599 041076 001402 BEQ :NO_- 

10600 041100 052716 000100 BIS #ACLOERR,(RO) #;SET ACLO ERROR FLAG 

10602 041104 032714 oOD0020 6S: BIT #SPDLSS, (R4) ;TEST SPEED LOSS SET 

10603 O41110 oO01402 BEQ 73 :NO - 

10604 O4¥lli2 OS27i0 oo0200 BIS #SPDERR, (RO) :SET SPEED LOSS ERROR FLAG 
10608 041116 032714 oo0040 7$: BIT #OROT, (R4) ;TEST IF_DROT SET 

10607 O41l22 o01402 BEG es ?NO - Pp 

10608 041124 052710 ooo0400 BIS #DROTERR,(RO) ;SET DROT ERROR FLAG 

10610 041130 032711 100000 8s: BIT #CERR, (R1) ;TEST CERR ITSELF SET 

10611 041134 o01002 BNE 10$ *YES - SKIP 

1061¢ 041136 032710 oe20000 BIT SNCERWE, (RO) ?SET NO CERR WITH ERROR FLAG 
10614 041142 012700 oS50354 10$: MOV #GRP2ER, RO ;SET POINTER TO GROUP 2 ERROR FLAGS 
10616 041146 032715 000100 BIT #ECH, (RS) ;TEST IF_ECH SET 

10617 O411Se o0140e2 BEQ 11 :NO - 

10618 041154 052716 oo000i BIS #ECHERR, (RO) :SET ECH FLAG 

10620 041160 032715 100000 11S: BIT #DCK, (RS) ;TEST DCK SET 

10621 041164 O01402 BEQ 1 ;NO - 

10b2e 041166 O0S2716 ooo0002 BIS #DCKERR, (RO) ‘SET DCK ERROR FLAG. 

10624 117, 7 4 : T #WCE, (R3) ;TEST WRITE CHECK ERROR 
10625 Bat tse T4h3 on ame BO 5S’ ?NO - Pp 

10626 041200 052710 oo0004 BIS #WCKERR, (RO) :SET WCE BIT 

10627 041204 032713 100000 120$: BIT #OLT, (R3) : TEST DATA LATE 

10628 O412e10 o0i40e BEQ 13$ ?NO_- 

10628 O4l2le 052710 ooo010 BIS #DL TERR, (RO) :SET DLT ERROR FLAG 

10631 041216 032715 oz20000 13S: BIT #OPI, (RS) ;TEST OPI SET 

10632 O4%le22 o00140e BEQ 14S !NO - SKIP 

10633 041224 052710 oo0020 BIS #OPIERR, (RO) :SET OPI ERROR FLAG 

10635 041230 032715 oo0400 14S: BIT #HVRC, (RS) ;TEST HVRC SET 

10636 041234 o0140e BEG :NO - S 

10637 041236 052710 ooo040 BIS #HVRCERR, (RO) SET HVRC FLAG 

10639 O412e42 032715 oD020 16S: T #BSE, (RS) ; TEST BSE ERROR FLAG 

10640 O412e4%6 001402 ‘ Bea . :NO_- SKIP 

10641 041250 052710 000100 BIS #BSERR, (RO) :SET BSE FLAG 

10643 041254 012700 os0356 17S: MOV #GRP3ER, RO ;SET POINTER TO GROUP 3 FLAGS 
1064S 041260 032713 010000 BIT #NED, (R32) ;TEST NED SET 

10646 041264 001402 BEQ :NO - SK 

10647 O41266 052710 oo0001 BIS #NEDERR, (RO) :SET NED FLAG 
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1054 
10648 041272 032711 oo04000 18S: BIT #CTO, (R1) ;TEST CTO SET 
10650 041276 001402 BEQ 1 *NO_- SkIP 
19e8s 041300 052710 oco0002 BIS SCTOERR, (RO) !SET CTO FLAG 
10653 041304 932713 000400 19S: BIT #UFE, (R3) ; TEST Ure SET 
10655 041312 052710 ooo0004 BIS #UFERR, (RO) :SET UFE FLAG 
106 7 041318 932713 001000 208: BIT #MDS, (R3) ; TEST Hos SET 
10659 041324 052710 oo0010 BIS #MDSERR, (RO) :SET MDE FLAG 
iBees Bui338 981503 oo2000 218: BIT #PGE, (RB) ; TEST PGE SET 
10663 041336 396 op0020 BIS SPGERR, (RO) SET PGE FLAG 
10665 Ou1gue 03274 004000 22S: BIT aNEM, (RB) ; TEST NEM SET 
10667 041350 052710 oo0040 BIS #NEMERR, (RO) :SET NEM FLAG 
ibe%a Bulzea Baiada 220000 pete |S Ugo’ (RS) IND. pe 
10671 041362 052710 000100 BIS #UPERR, (RO) :SET UPE FLAG 
10673 O41 ? us: T RS) ;TEST ILF_SET 
tier Guta g3Fcas o00O4 ae MST Ute 
10675 041374 052710 oo0200 BIS #ILFERR, (RO) :SET ILF FLAG. 
10677 ; THE FOLLOWING C S EXECUTED ONLY IF ERRORS WERE EXPECTED. 
10678 : THE FLAG IN THPLS TRoFCates °F 
10679 : AN ERROR WAS EXPECTED AND THE CONTENTS OF TMP1O 
10680 : TEMP. & TE 1 SPECIFY WHICH ERRORS. THESE ARE COMPARED AGAINST 
10681 : THE ERROPS OUND STORED IN GRPIE 2ER, AND GRP3ER. 
1068e : THE CONTENTS OF GRP1.2, 8 3 BRE mo IF TED 19 INDICATE ERRORS THAT 
{besa ; & ARE IFIED T INOTEAT EXPECTED ERRORS THAT DID’ NOt 
10685 : OCCUR. BOTH CONDITIONS CAN EXIST AT THE SAME TIME AND MUST 
10686 : BE REPORTED. 
10688 ou14o9 905737 001250 ess: TST STMP13 ; CHECK IF AN ERROR WAS EXPECTED 
10690 9414 Oa 36a o503S2 MOV BGRPLER, RY eer ADDRESS OF ERROR 
10631 041412 012705 aole4e MOV #STMP1O,RS :GET ADDRESS OF EXPECTED ERRORS 
10693 041416 011500 26S: MOV (RS),RO ;GET EXPECTED ERROR 
ibess ovidee genoDt i nS iGhe fey equals 
10696 041424 001003 BNE 27$ :NO - SKIP 
ibese o4i436 ODe0o! ctR ORL iCtEAR OCCURED. ~~ 
10668 041432 000403 BR 28S : 
10701 041434 010003 27$: MOV RO,R3 ;STORE EXPECTED ERRORS 
10702 041436 049100 BIC R1'RO :RESET EXPECTED THAT OCCURRED 
10703 O41440 040301 BIC R3°R1 !RESET OCCURRED THAT EXPECTED 
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OPERATION CHECK ROUTINE 


28s: 


ee eee ee te rr eT) 


29s: 


30S: 


10$: 


ay (aes: 
+ 
Rétme 1a, RS 
26S 


THE FOLLOWING CODE: 
A. De Teanities WHICH FORMAT _IS TO BE U 


. T ER E 
D. GETS DRIVE STATUS IF GROUP 1 


THE BOER hin OF 


SEO 0198 


;STORE EXPECTED THAT DID NOT OCCUR 
ACen SOB ERE: WERE NOT EXPECTED 


USED 
Ma, 3 ASCIZ TEXT INTO THE SELECTED 
on BE REPORTED 


1S" eRSED ON THE ERROR GROUP (GR GROUPS) THAT HAVE 


FLAGS SET. FA 
FLAG SET IN GROUP 


THE FORMAT TO BE USE 
ERROR_TRAP IS 


USEO THE ERR 
AVAILABILITY 
AND 

THE ER 


OUP 3 WIL 
ROR_TRAP WILL 


a BIT I 
OY FLY rf Feouere 0 
CHANGE 
TRAP 


Bec 
nee ol ae er otith Erie 


uP'2"teRROR 6) WILL BE USED; AND A 
Raat Ov 8 “eae 


AT IS 
9 ERROR 40 R SDEPENDING ON 


0 
POINTING TO THE LOCATION THAT Tsatalns THe ER ERROR CALL TRAP. 


RROR eens IS READ F 
ANY PERRO 


s, ERROR 5°18 USED. 


ern 


Senet, RO 
aSTMP2. 


(SP) RS 
#GRP3ST, (R3) 
(SP)+ 
S$TMP13 

31$ 
STMP12,-(SP) 
RY, BITCNT 
(SP) 

30S 

#GP3NR, (R3) 
(SP),R4 
(SP)+ 


HE DRIVE WITH NO PROBLEM 

bre FNELUDES AWA SaaS’) MESSAGE. 

;CLEAR COUNTERS 

+ OME POINTERS FOR TEMPORARY STORAGE OF ADDRESS 


POTN NTERS, 6 GROUP SURMERY FLAGS 
RESE OR ERR MESSAGE BUILD 
;GET GROUP 3 ERRORS, PUT ON STACK 
ER AT’ ERRORS 

N 
;ADD IN ERROR TOTA 

;SET BIT TO INDICATE GROUP 3 ERROR 


;CLEAR OFF STACK 
: ERROR — 


;NO_- SKI 

;PUT ro 3 NOT RECEIVED ERRORS ON STACK 
;COUNT NUMBER OF ERRORS. 

; MERE THRE ANY 


:SET GROUP 3 NOT RECE 


IVED ERROR FLAG 
:ADD COUNT TO TOTAL THESE 


;CLEAR CFF STACK 
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0760 O41562 01374) os0354 31S: MOV GRP2ER, -(SP) ;GET GROUP 2 ERRORS FOR COUNTING 
10761 i566 004437 036620 ISR R4, BITCNT ; COUN NT BITS 
O76¢ Ou152¢ 905716 TST (SP) ; ANY SET? 
1076 1574 00140 BEG 325 NO - SKIP 
10764 041576 052713 oo0000e BIS SGRP2ST, (R3) ISET FLAG FOR GROUP 2 ERRORS 
10765 041602 061605 ADD (SP). RS’ ?ADD_INTO TOTAL 
10766 O41604 012710 061370 MOV #DF GOA, (RO) *STORE ADDRESS FOR BUILDING REPORT 
10762 041610 Ole711 001432 MOV #DHEN, (R1) 
10769 1614 57 328: TST (SP)+ ;CLEAR OFF STACK 
10770 Siete eesti 001250 TST $TMP13 ?ANY EXPECTED ERRORS 
10771 O4i622 O01416 BEQ 34S ;NO_~ KIP 
10772 Ou1be4 13746 001244 MOV $TMP11,-(SP) :GET GROUP 2 NOT RECEIVED ERRORS 
10773 O416 437 036620 JSR RY BITCNT ; COUNT NUMBER OF BITS 
10774 041634 0905716 TST (SP) ANY SET? 
10775 041636 001407 BEQ 33S NO - SKIP 
10776 O41640 052713 o00020 BIS #GP2NR, (R3) :SET FLAG FOR GROUP 2 NOT RECEIVED 
10777 O416449 061604 ADD (SP). RG ?ADD_INTO TOTAL 
10778 O41646 012710 061370 MOV #DFOOGA, (RO) ‘STORE ADDRESS FOR BUILDING REPORT 
10773 041652 012711 001432 MOV #DHEN, (R1) 
10781 O41656 005726 338: TST (SP ;CLEAR OFF STACK 
10782 041660 013746 os03Se2 345: MOV GRPIER -(SP) ‘GET GROUP 1 ERROR FLAGS 
10783 1664 004437 036620 ISR RY, BITCNT COUNT THE NUMBER OF BITS 
10784 041670 0057 TST (SP) ; ANY SET? 
1078S 041672 0014 BEQ 35$ NO - SKIP 
10786 041674 052713 oo00001 BIS #GRPIST, (R3) SET FLAG FOR GROUP 1 ERRORS SET 
10787 041700 061605 ADD (SP), R' 3 ABD INTO TOTAL 
10788 041702 012710 061304 MOV #OFOOYA, (RO) LOAD ADDRESS FOR BUILDING REPORT 
10789 0417: 012711 ool14ie MOV #DH4N, (R1) 
10790 O4171e 005726 35$: TST (SP)+ pp OFF STACK 
10791 041714 005/37 001250 TST $TMP13 ; ANY EXPECTED ERRORS? 
10792 041720 1416 BEQ 60S NO - 
10793 041722 013746 oo12e4e2 MOV $TMP10,-(SP) ‘GET GROUP 1 NO RECEIVED ERROR 
10794 041726 004437 036620 JSR RY, BITCNT :COUNT # OF BITS 
1079S 041732 0067 16 TST (SP) ; ANY SET? 
107958 041734 00140 BEQ 363 NO - SKIP 
10797 041736 052713 o00010 BIS ¥GPINR, (R3) iSET FLAG FOR GROUP 1 NOT RECEIVED 
10798 O41742 061604 ADD (SP) ,.R4 ?ADD_INT 
10799 041744 012710 061304 MOV #DFOO4A, (RO) *LOAD ADDRESS FOR BUILDING REPORT 
10800 O41750 Ole711 OOl4ie MOV HDHSN N, (RI 
10801 041754 005726 36S: TST ( LEAR OFF STACK. 
10802 041756 032713 000011 608: BIT #GRPIST!GPINR, cRaSe ;ANY GROUP I ERROR 
10803 041762 001414 BEQ $ ;NO’- SKIP 
10804 041764 042713 940000 BIC #ORSTER, (R3) 
1080S 041770 004437 037340 ISR RY, GETDRS 
10806 041774 OOO4O1 51$ ;ERROR RETURN 
10807 041776 OO0406 BR 525 :NO ERROR RETURN 
10808 O42000 012710 061334 51S: MOV #DFOOSA, (RO) ;CHANGE TO FORMAT S_- STORE ADDRESS 
10809 O42004 O12711 001422 MOV #DHSN, (R1) *FOR BUILDING REPORT 
10810 O42010 052713 o40000 BIS #ORSTER, (R23) :SET DRIVE STATUS ERROR 
10811 042014 52s: 
10813 ; THE ERRORS BRE COUNTED FLAGS SET TO INDICATE WHICH ERRORS 
10814 : ARE TO BE REPO AND THE ERROR FORMAT HAS BEEN SELECTED. 
10815 : THE FOLLOWING. ROBE’ WiLL TBE ALL THE ERRORS, LOAD THE 
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ROKE 10-JAN-78 09:35 OPERATION CHECK ROUTINE 
10816 ; PROPER HEADER MESSAGE ADDRESS IN THE ERROR ITEM TABLE 
10817 : AND _LOAD THE PROPER HEADER MESSAGE ADDRESS IN THE PROPER 
10818 : DF TABLE. 
10819 ; 
10820 : AT THIS TIME 
10821 : RS CONTAINS EITHER THE NUMBER OF ERRORS THAT OCCURRED BUT WERE 
10822 : NOT EXPECTED OR 
10823 : THE ERRORS THE OCCURRED IF_NONE WERE EXPECTED 
10824 : RY “BID NOT oC HE IN NUMBER OF ERRORS THAT WERE EXPECTED BUT 
10826 : STMP1O CONTA PRS e crave 2 ERRORS THAT WERE EXPECTED BUT DID NOT OCCUR 
10827 : $TMP11 CONTAINS GROUP T WERE EXPECTED BUT DID NOT OCCUR 
10828 : STMPle C TAINS OUP RRORS THAT WERE EXPECTED BUT DID NOT OCCUR 
10829 : GRP1ER CONTA ge § GECURRED OR OCCURRED AND WERE NOT EXPECT 
10830 : GRP2ER CONTAINS GROUP RRORS THAT QCcURRE D OR OCCURRED AND WERE NOT EXPECT 
10831 ; GRP3ER CONTAL NS GROUP OCCURRED OR OCCURRED BND yHERE NOT EXPECT 
10832 : (RL) =8S THEE CONT AINS ee R MESSAGE ADDRESS 
10833 : T HUST BE ALTERED 19° IDENTIFY. TH The OPERATION 
10834 : (RO)=#STMP1 "Conta NS Re ADDRE R MESSAGE ADDRESS IN 
10835 ; tH OR ITEM T Peace Oris BE ALTERED TO PROVIDE A 
10837 : (RB) =4GRSUME Cont AIN FLAGS TO 'NDICATE WHICH OF THE GROUP 
10838 : RROR FLAG FIELDS HAVE. ERROR BITS STORED. 
10839 042014 032777 Oz20000 137116 BIT #SW13, ISWR PORT INHIBITED? 
10840 O4e022 001402 BEQ 37$ NO _= SKIP 
10841 042024 000137 o4e412 JMP 895 tELSE EXIT 
10842 042030 005737 oo1250 373: TST $TMP13 ?WERE ERRORS EXPECTED? 
10843 042034 001004 BNE 38$ :YES - SKIP 
10845 ; IF NO ERRORS WERE EXPECTED, STMP10,11, 812 ARE NOT MEANINGFUL 
10847 042036 012771 060307 ocDD000 MOV #DHOO7, 3(R1) ;HEADER = ERROR IN OPERATION 
1be49 buso4e OI 2771 060130 ooo000 38s MOV #DHOOS , 9(R1) ;PRESET HDRMSG = EXPECTED NOT SET 
: lg = 
10850 042054 032713 000070 BIT #GPINR!GP2NR!GP3NR, (R3)_;ANY NOT RECEIVED ERRORS? 
10851 O42060 001003 BNE ;YES - SKIP__ 
10852 O4e062 012771 ob0225 oD0000 MOY #OHOO6, a(R1) :SET MESSAGE TO UNEXPECTED ERROR SET 
10853 042070 013701 001540 39S: MOV é : C 
10854 042074 042701 177741 BIC #177741,R1 :CLEAR ALL BUT COMMAND 
10856 042100 016170 o50476 ooD000 MOV CMNDLB(R1),3(RO) ;MOVE ADDRESS OF COMMAND MESSAGE 
10858 042106 032713 000007 BIT sogPIST!GRP2ST!GAPSST, (R3) ;ANY GPR ERRORS? 
10858 O42112 O01462 BEQ aed NO -’SKIP GPR REPORT 
10861 ; PRINT ALL THE ERRORS conTarEs IN THE GPR1,2,3ER(UNEXPECTED ERRORS) 
10863 oue114 013701 oS0356 MOV GRP3ER,R1 ;GET GROUP 3 ERROR FLAGS 
10864 O42120 012700 050376 MOV #GRP3MS, RO ‘SET POINTER TO GRP3 ERROR MESSAGES 
10865 O4e1le4 005037 001eSe 140$: CLR STMP14 :CLEAR GROUP PRINTING INDICATOR 
10866 O42130 012737 000021 o01e54 4oSs: MOV #17. ,$TMP1S ; PRESET SHIFT COUNT 
10867 042136 O00241 CLC ARRY 
10868 O42140 006001 41S: ROR R1 ROTATE ERROR FLAGS 
10869 O42142 103406 BCS 4EE iWAS BIT SHIFTED OUT SET? 
10870 O42144 062700 oD0002 1418: ADD #2, RO NO - BUMP POINTER 
10871 O42150 005337 001254 DEC $TMPIS !DEC SHIFT COUNT 
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10872 guise 001371 BNE 41s ;LOOP IF SHIFT NOT ZERO 
10874 O4e160 011037 gu2172 42$: Mov (RO), 438 G6 “ERer MESSAGE ADDRESS FROM TABLE 
ie Gaels ie a ce 
sis $ ° 
10878 48175 Oo8308 DEC Ss eee mT PRRGR COUNT. 
10880 042200 000427 BR 46$ ED SE a Ber ERROR PRINT LOOP 
1088e ouzede 005713 44g: TST (83) Ms GPSUMF FLAG FOR PRINTING ERROR NOT RECEIVED 
10884 oe 005737 o0l1ese TST S$TMP14 ; PRINTING GROUP 37 
1088S 2ele 001007 BNE 4S$ NO -SKIP 
10886 O42214 013701 os0354 MOV GRP2ER,R1 iELSE SET TO GROUP 2, GET GRP2ER 
10887 Queeed 012700 os0416 MOV aGRPeNS, RO & SET POINTER TO GROUP 2 ERROR MESSAGE TABLE 
10888 22204 905237 001252 INC $TMP14 ;BUM TO INDICAT PRINTING GROUP 2 
rest Buss39 B8 737 oo0002 oolese 45S: CMP #2, $TMP14 PRIN fing GROUP 1? 
10891 O4%2240 001407 BEQ 46$ - EXIT GPR ERROR PRINT L Oop. 
1083¢ O42e42 013701 o50352 MOV GRP1ER,R1 is HF PSIn TO 9 GROUP GET GROUP i ERROR 
10893 O42e2e46 012700 050434 MOV #GRPIMS,RO NTER GROUP 1 ERROR MESSAGE TABLE 
10894 O422eS2 005237 001252 INC STMP14 O INDICATE PRINTING GROUP 1 
10895 042256 000724 BR 40S RESTART PRINT LOOP. 
10897 O42260 005737 001250 46S: TST S$TMP13 ;EXPECTING ERRORS? 
10898 042264 001452 BEQ 49S :NO - SKIP 
19800 ; PRINT ALL ERRORS CONTAINED IN STMP1O, 11, 12(NOT RECEIVED ERRORS) 
10302 Ouz266 005713 rst (R3) sTEST_ TE PRINTING NOT RECEIVED ERRORS 
18803 Ouge72 32713 000070 BIT at (RS) ANY NOT RECEIVED ERRORS 
i838 Bisse Gataby 000007 Bbq IGRGUSTPORP2ST+GA 257. £°9R (AME. NPSn"GRENPEGTE Earns 
10908 O42306 104401 001273 TYPE tSCRLF OPE CRLF 
10909 O4231e 104401 060225 TYPE 6 ‘TYPE HEADER FOR PREVIOUS ERRORS 
19310 oe 16 0527 32 100000 oSO0474 1146S: BIS AREPNR, GPSUMF jSET_PR NTING NOT _R ECEIVED ERRORS SWITCH 
10912 O42326 013701 o012% MOV THEI 2 R1 ?GET GRP3 NOT RECEIVED ERRORS 
19313 042332 912700 050376 nov ¥GRPSNS, RO S61 POINTER TO Soe” 3 MESSAGES 
10915 Bu5358 eeeee 001252 47S: TST $TMP14 j PRIN TING GROUP 3? 
10916 042344 001007 BNE 4ES NO - SKIP 
10917 O42e346 013701 o01244 MOV $TMP11,R1 ELSE SETUP TO PRINT GROUP 2- GET ERRORS 
10918 042352 012700 O50416 MOV aGRPENS, RO *& SET POINTER TO GROUP 2 MESSA GE TABLE 
isa Busses Baga: OOleSe ae geet iSu"erner Baise rose” © men 
10921 042364 022737 oO0000D2 o01252 Yes: CMP #2, STMP14 j PRINTING GROUP 1? 
108¢¢ 837e 001407 BEQ 49 YES 5 ofx T LOOP 
103 74 013701 oo1242 ‘ MOV $TMP10,R1 SET ER TO GROUP 1 MESSAGE 
10924 O42400 012700 o50434 MOV HGRPINS, R RO + FABLE AND GET GROUP RRORS. 
10925 O42e404 005237 O0125e INC $TMP14 :BUMP TO INDICATE GROUP 1 PRINTING 
10326 042410 o00647 BR 4O$ :START LOOP AGAIN. 
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10928 O4%241e 032713 000077 49S: BIT #77, (R3) ;TEST IF ANY ERRORS TO BE REPORTED 
109293 ; GRP1ST!GRP2ST! GRP3ST 
19832 4 001004 BNE 61$ ves INE Spemeahechet 
{83 3 BY 538 104414 RESREG tf ee EXxI 
10933 O4e42e 062716 O00002 ADD #2, (SP) : BUMP FOR GOOD RETURN 
1pae O4¥e426 000002 RTI 
1Ba3P 042430 112776 o00007 ON0000 615: MOVB #7 ,a(SP) *PRESET FOR GROUP 3 ERROR RETURN. 
/ 10937 042436 032713 o00022 BIT #GRP2ST!GP2NR, (R3)_;ANY GROUP 2 ERRORS? 
' 10938 O4%e44e 001403 BEQ 50s ;NO - SKIP 
19333 042444 112776 oOO00006 Od00000 MOVB #6, a(SP) sELSE SET FOR GROUP 2 ERROR RETURN 
| 
1094 ky 2713 oo0011 SOs: BIT #GRP1ST!GPINR, (R3) ; ANY ROUP 1 ERRORS? 
| 1Baq3 OueuB barat BEQ 33 ;NO Li 
10943 O4%2460 112776 oOo0004% 9o00000 MOVB SP) ELSE eet FOR GROUP 1 ERROR RETURN. 
1patd aeu7e O36 403 040000 B i Eee co ; CHECK IF ERROR GETTING DRIVE STATUS 
1b8ue 74 Tie? ooooo0s oooo000 MOVB #S,a(SP) PPE SHANGE RETURN FORM GROUP 1 
10948 42 00S737 oO0i2e64 S38: TST SESCAPE ; CHECK ee pscare ALREADY SET 
ipaed 45 rt , 404 001302 oY TESTN, RO iy at i TO _FORC 
183 1 haste BA2585 ASL Bo Bee Rt v3 rece NT TEST EETER 
10952 O4e2S16 016037 033516 001264 MOV S$SWOSTB(RO), sesciBe ;ERROR IS REPORTED 
10953 QO42Se4 162737 oOOo000e 001264 SUB #2, SESCAPE BUT’GO TO hexte SCOPE STATEMENT 
10954 O42eS3e 104414 SYS: RESREG 
1 Reee 042534 ao00002 RTI natu 
10957 1 gage ye 5 2 gO St aucecer ceca tecnica iaiieinenedepseie atom: 
10958 SBTTL BAD SECTO 
| Beto = | HOSE pone ss IS IN Te. LOCATION ort iy. REIN 
10361 i HRY ete “ev NBER <no ntRagK. ApORESS spect FIED ED IN 
| 10963 1% THAT ASE ER! vReCK. THE Ss. ESR NUMBER 
, 10964 3% id "BL 1 Oe STACK. INDE Rene eee OF BAD SECTORS 
, 10965 3% Is ACED ON THE as AFTER THE ENTI 
| 10966 3% AeLb IS SEARCHED 
10967 3% 
10368 7% CALL: JSR SRCK 
109693 ;* <ADDRESS Rote PRETO TO BE SEARCHED> 
1paoe 5 HEHE AE SE HE HE ME HE HE ME HE HE AE HH HH HH HE REE E EE 
10972 O42536 012637 001236 BDSRCK: MOV (SP)+, STMPE ;STORE OLD RY CONTENTS 
10973 O4eS42 010437 O01e40 MOV R4, STMP7 ;GET RETURN ADDRESS 
10974 OisecR OF 404 MOV (R4) RY ;GET POINTER TO FIELD TO BE CHECKED 
10975 0425 05037 001234 CLR $TMPS s CLEAR A COUNTER 
10976 O4eSS4 005714 1S: TST (RY) i TEST IF FIELD HAS NO (OR NO MORE)JENTRIES 
10977 O4%eSS& 100417 BMI 4$ YES - EXIT 
10978 O42560 023724 001614 CMP L.DCYL, (R4)+ Hs THIS ENTRY FOR THIS CYLINDER? 
10979 O42564 001012 BNE 3$ - SKIP 
1098 04256 o0S204 INC RY +O OMP TO TRACK 
/ 10981 04257 123714 001607 CMPB L.OT, (RY) 115 ENTRY FOR THIS TRACK? 
10982 042574 9001005 BNE 2 NO - S 
| 10983 042576 oOOSO46 CLR - (SP) CLEAR STACK LOCATION 
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(1052) 10-JAN-78 09:57 PAGE 203 
BAD SECTOR CHECK 


MOVB 


INC 
B 


-(R4), (SP) 
STMPS 


;PUT SECTOR NUMBER ON STACK 
:BUMP COUNTER 
; BRANCH 


; DECREMENT aD TO WORD ALIGN 
;B TO NEXT ENTRY 

; TEST NEXT ENTRY 

;PUT COUNT ON ST 


PU 
;SET UP URN 

;BUMP_ PAST PARAMETER 
; RETURN 


ACK 
T OLD _RY oe BACK ON STACK 


s ERK KLAR EEK A AAR K ARK L HARE R ALKA KARA AAA RAL RAEA ALAA RA ARAKRL LAA 


RETURN 


‘aBTTL DATA GENERATION 
CALLS: 


JSR 
CONTROL NORD 


JSR 
CONTROL W 
LENGTH 


had COMPARE ROUTINE 


eon 


roan o Ge GENCOM , 
RELOCATION CONSTANT 


RTS RY 
S ADJUSTED IN THE CODE FOR THE FOLLOWING RETURNS: 


RY I 
THE FIRST CALL RETURNS TO THE LOCATION FOLLOWING THE 


CONTROL WORD. THIS IS UNCONDITIONAL 


THE SECOND CALL RE 
THE OPERATION Set Ee DATA gd AN 


IF DATA IS TO BE 
ERRORS OCCURRED, THE RETURN IS TO LENGTH + 


D DATA abt OMP 
RATED ONLY_OR NO (gee ‘ch ARE 


THE THIRD CALL IS IDENTICAL TO THE SECOND. 
DEFINITION 


ASH 4qqqq4H 4 
ONODReKe eee 


I 
I 
I 
I 
I 
I 
I 
I 
I 
I 


s- 
4 
3 
2 
1 
0 


OF CONTR. WORD : 


TO 


COMPARE 0 


(DESTINATION). ert ED VALUES ARE _ IN 
ARE 0 WANEGENENT FO co POINT ait BY LAST COMPARE. 


rae co 


EXPLANATION OF CALLS: 


OPERATION OF IBUFF (SOURCE) TO OBUFF 


R SOURCE (IBUFF). 
DESTINATION (OBUFF ) 


AND 7 IS ALL 
ROR AS 2-6, 8-16. 


D. 

ILES 

CATE GOOD SECTORS. 

HER COMPARE OR BUILD). 
L on ees Q_ INDICATES 


TURNS TO THE LOCATION FOLLOWING Ls, Baan IF 


QBUFF (DESTINATION. 


PATTERN THROUGHOUT OBUFF . 


ONES 


SEQ 0203 
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11040 ;% THE CALL WITH CONTROL WORD THE ONLY PARAMETER IS USED FOR 
11041 5 BUILDING OR COMPARING HEADERS OR RESUMING A COMPARE OPERATION. 
11043 $x THE CALL WITH CONTROL WORD AND LENGTH AS PARAMETERS IS USED 
11048 i FOR DATA GENERATION OR COMPARE AND FOR IBUFF INITALIZATION. 
11046 1 THE CALL WITH CONTROL WORD, RELOCATION CONSTANT, AND LENGTH IS 
11047 3% USED FOR DATA GENERATION OR COMPARE WITH MEMORY MANAGEMENT. 
11043 $% 

11050 ;* DESCRIPTION: 

11052 1% THIS ROUTINE IS MULTI-PURPOSE AND WILL PERFORM THE FOLLOWING: 
11053 i A. UILD HEADERS, EITHER 20 OR 22 SECTORS/TRACK MODE. TH 
11054 1a ROUTINE WILL BUILD THE HEADERS AS ALL GOOD SECTORS (BIT 8) 
11055 1% OR TAKE T OD SECTOR FILES (HARDWARE OR SOFTWARE) FOR 
11056 % EITHER FORMAT) INTO ACCOUNT AND BUILD THE HEADERS WITH THE 
11057 Le ED BAD IF ANY SECTORS FOR THE CYLINDER - TRACK 
11058 i ARE LISTED THEREIN (BIT 9). 

11060 1% 8 ARE THE ONTENTS OF IBUFF AND OBUFF (BIT 15). THE 
11061 1% CONTENTS OF THE BUF E MAY BE HEADERS OR DATA. A 

11062 7 HEADER CO OPERATION MAY BE SPECIFIED (BIT 7) WHICH 
11063 x ILL CAUSE THE COMPARE TO BE LIMITED TO 74(8) OR 102(8) 
11064 1% WORDS OF HEADERS. T LENGTH DEPENDS ON THE FORMAT 
11065 1 HAT WAS LAST SPECIFIED IN L.CS1. THE HEADERS 

11066 x MAY BE BUILT BEFORE THE COMPARE AS PART OF THE 

11067 1 OPERATION cert S_ AND BIT BOR 9). DATA CAN ALSO BE 
11068 i GENERATED BEFORE THE COMPARE (NON-ZERO BITS 6-0). 

11070 1% c. RESUME COMPARE OPERATION. IF A_COMPARE OPERATION 

11071 7 DETECTS A MISCOMPARE, THE ROUTINE RETURNS TO CALLER 
11072 i" BUT STORES PARAMETERS SUCH THAT THE COMPARE CAN BE 
11073 1% RESUMED. THIS is DONE BY CALLING GENCOM WITH BIT 14 
11974 i SET IN THE CONTROL WORD. 

11076 ti D. DATA GENERATION OR COMPARE USING MEMORY MANAGEMENT. 
11077 1% MEMORY MANAGEMENT CAN BE INVOKED FOR EITHER 

11078 1 SOURCE OR DESTINATI N BUT NOT FOR BOTH. IN THIS 

11079 x MANNER, DATA GENERATION CAN BE MADE T 

11080 1% PLACE BATA ANYWHERE IN AVAILABLE MEMORY. LIKEWISE 

11081 1 a DATA COMPARE WILL COMPARE THE CONTENTS OF IBUFF TO 
11088 x ANY AREA OF AVAILABLE MEMORY. 

11084 o426 GENCOM: 

11085 042636 010046 MO RO,-(SP) ;;PUSH RO ON STACK 

11086 O42640 010146 MOV R1;-(SP) ;;PUSH R1 ON STACK 

11087 O4e642 010346 MOV R3,-(5P) ?;PUSH R3 ON STACK 

11088 O42644 010546 MOV RS} -(SP) ;:PUSH RS ON STACK 

11089 O42646 012400 MOV (R4)+,RO ;GET PARAMETER WORD 

11090 O42650 012737 o56654 001520 MOV #EMS4) EM1SN ?PRESET FOR HEADER COMPARE ERROR 

11091 O42656 032700 o00200 BIT #81T7,RO *HEADER OPERATION SPECIFIED? 

11092 O4e66e 001005 BNE 1 :YES - SK 

11093 042664 012737 056703 001520 MOV #EMSS, EM1SN !CHANGE FOR DATA COMPARE ERROR 

11034 Oueb7e 000137 043424 . IMP 175 ;ELSE JUMP TO DATA ROUTINE 


~ 


1 
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11096 042676 O10446 MOV ;;PUSH R4Y ON STACK 

11097 O4e700 O27 001400 BIT Setters BITS, RO j AUST HEADERS BE BUILT? 

11098 2704 10 BNE 198 YES - SKIP 

11099 042706 000137 043206 IMP 11$ fEL LSE JUMP TO HEADER COMPARE 

11100 042712 113701 001607 19S: MOVB L.DT,R1 ?START HEADER BUILD ROUTINE 

11101 2716 613703 001614 MOV L:OCYL,R3 :GET TRACK CY 

11102 042722 012705 oo000s MOV #5,RS :SET COUNT TO SHIFT TRACK FOR HOR WORD 
11104 0427 00630 1$: ASL RI ;SHIFT TRACK 

1110S 0427 0053 DEC RS *DECREMENT TRACK 

11106 042732 001375 BNE 1$ ‘LOOP UNTIL COUNT O 

11108 042734 012704 oD0026 MOV #26,R4 ;PRESET FOR 26 SECTOR MODE 

11109 042740 032737 010000 001600 BIT aCFAT,L.CS1 :IS IT 24 SECTOR MODE? 

11110 042746 001404 BEQ 2s ‘NO - SKI 

11111 042750 9012704 oo00024 MOV #24, RY :CHANGE COUNT FOR 24 SECTOR MODE 

iilie 042754 052701 001000 BIS #BITS,R1 :SET 24 SECTOR MODE BIT IN WRD © OF HOR 
11114 042760 oS2701 140000 2s: BIS #BIT1S!BIT14,R1 ;SET BS BITS TO INDICATE GOOD SECTOR 
1111S ove764 012705 072414 MOV #OBUFF RS :SET POINTER TO ADDRESS WHERE HEADERS GO . 
11116 7 010325 3S: MOV RB, ( (RSS+ * INSERT CYL R 

11117 048772 O101e5 MOV R1; (RS)+ : INSERT FRACK AND SECTOR 

11118 042774 010337 001224 MOV R3;STMP1 *CALCULATE HVRC WORD 

11119 043000 010115 MOV R1; (RS) 

11120 3002 040137 o01224 BIC R1;STMP1 

lllel 3006 040315 BIC R3’ (RS) 

1iiee 043010 053725 001224 BIS STMP1, (RS)+ ;COMPLETE HVRC WORD INSERTION 

11124 043014 005304 DEC RY ;DECREMENT HEADER COUNT 

11125 043016 001402 BEG Ug :DONE? - YES, SKIP 

11126 043020 o05201 INC Rl : BUMP 

11127 043022 00076 BR 3$ :LOO 

11129 043024 032700 001000 4S: BIT #81T9,RO ;MUST HEADERS BE CORRECTED FOR TABLE ENTRIES? 
11130 043030 001003 BNE S$ ES - 

11131 043032 005700 10S: TST RO iTS THIS A COMPARE OPERATION? 

11132 043034 100464 BMI 11% ? YES-GO 00, HOR COMPARE 

11133 043036 BR 50s ?ELSE GET 

1113S 043040 013737 001640 043076 SS: MOV BSF2EP, 6S ; PRESET FOR BS FACTORY LIST 

11136 043046 012737 100000 001224 MOV #B1T1S’S$TMP1 T BIT TO BE RESET IN BAD HEADER 
11137 043054 032737 610000 OO1600 BIT #CFMT,C.CS1 ‘Ts THIS 26 SECTOR MODE? 

11138 043062 001403 BEQ 8$ YES - SKIP 

11139 043064 013737 001636 043076 MOV BSFe4P, 6S ELSE CHANGE FOR 24 SECTOR MODE 

11141 043072 004437 O42536 8S JSR R4, BDSRCK ;GO_ CHECK FOR BAD SECTOR THIS ADDRESS 
11142 043076 oo0000 63: . WORD ; POINTER TO FILE TO BE CHECKED GOES HERE 
11143 043100 012605 MOV (SP)+,RS ‘GET # OF BAD SECTORS THIS PACK ADDRESS 
11144 043102 001417 BEQ 95 iekIP. IF ZERO 

11146 043104 011601 7g MOV (SP),R1 ;GET 1ST BAD SECTOR NUMBER 

11147 043106 006301 ASL Ri :MULTIPLY SECTOR NUMBER BY 6 TO 

11148 043110 006301 ASL Rl :LOACATE SECTOR TO BE MARKED BAD 

11149 043112 061601 ADD (SP),R1 

11150 043114 062601 ADD (SP)4+,R1 

11151 043116 062701 oo0002 ADD #2,R1 ;ADD 2 FOR 2ND WORD THAT SECTOR 


on 


» SS iS Sess eS se 


SSERLESIN® FIR SIP ePHGEas "PY BRUCE eRAPTEA'GRB cBBBke ASDTIAL® sea 20s 


4 BIC pe. ,OBUFF(R1) ; CLEAR ett 
6 BIC TMP 1’ OBUFF+2(R13 ORR 


11152 043122 043761 001224 07241 T FOR BAD SECTOR IN HOR 
11153 O431 Ou 37 b O0lee4 07241 THE HVRC BIT 
11154 O43] 3 DEC PECs "pap SECTOR COUNT 
11155 043140 001361 BNE om "f NNOT ZERO 
11157 14 2737 100000 o01224 9S: IT #BIT1S,STMP1 MERE DOING FACTORY LIST? 
HES Baie SSL oan coizes Roy asituy, srw Sete dey Terese oo : 
11160 Byate5 F 737 Ba Peas 043076 MOV BSS26P’ 6S adhe fofhiel “oe Be ee EC Ete MODE 
Hie Bisi8S Barzae 010000 cole0e BEL rrvc-csx TERY JG, pele ag gecvon re 
11163 043176 013737 001642 043076 Mov BoS24P, 6S Pig Mg oe 24 SECTOR MODE 
11165 
11166 . START OF COMPARE 
11167 043206 012701 o00102 Lis: MOV #102,R1 j PRESET FOR 102 WORDS OF HEADER 
11168 O43e1 032737 010000 001600 BIT acent,L L.cS1 i CHECK IF ge SECTOR MCDE 
11170 043222 012701 no0074 MOV #74,R1 :CHANGE TO 74 WORDS OF HEADER 
1i53 3226 012704 070414 12$: MOV #IBUFF,R4Y s SET START OF HEADERS TO BE COMPARED 
11173 043232 012705 072414 Mov SOBUFF, RS r T START 0 OF GOOD HEADERS 

te 
1117s 643348 032709 040000 Bri RBITI4, RO ha 2 Spnaepee OF EARLIER COMPARE 
11177 O43246 013705 001700 28S: MOV DESHLD, RS ig ALUES WHERE PREVIOUS CHECK STOPPED 
tits busses 13703 OBt2O mov Bact. Bd ' ieee oF ONO ERROR 
11180 043262 013701 001706 MOV WRDCNT;R1 COUNT Leer IN_ COMPARE 
11181 043266 005701 TST Rl 1 OF WORD COUNT LEFT = 0 
1118¢ 043270 001417 BEQ SOs :YES - EXIT 
111 04327. 2700 030 : T #BIT12!B1IT13,RO ;MEM MANAGE REQUIRED? 
1tige Bu 3556 635485 _ _ Bea Bg sitesi : 5 - SKIP ™ 
11186 043300 005237 177572 INC aaSRO :TURN IT ON 
11187 3 geete 25s: CMP (R4)+, (RS)+ ? COMPA THe WORDS 
11188 3 101 BNE 14S *SKIP IF NOT EQUA 
11189 3310 00520 ING R2 *BUMP WORD NUMBER IN ERROR 
11190 043312 005301 DEC Ri ;DEC WORD COUNT LEFT IN COMPARE 
11191 043314 001373 BNE 255 *LOOP IF NOT ZERO 
1113¢ 043318 932700 030000 BIT #81712!B1T13, RO 1g MANAGE IN USE? 
11138 Bd3 poe339 177572 DEC a#SRO ?TURN IT OFF 
11195 043330 SOS: 
11196 043330 012604 MOV (SP)+,R4 ;;POP STACK INTO RY 
11197 043332 000427 BR 165 
11138 ; ERROR REPORT PREP AND PARAMETER STORAGE FOR CONTINUATION 
11201 043334 010537 001700 14S: MOV RS, DESHLD ;STORE DESTINATION 
11e0e 3340 010437 001702 MOV RY, S CHLD : URCE 
1120 3344 014537 001202 MOV (RS), SREGIO ‘LOAD GOOD WORD FOR REPORT 
11204 3350 014437 001204 MOV ~ (Ra) ’SREG11 BAD WORD 
1120S 043354 010337 001206 MOV R3, SREGLO WORD NUMBER 
11206 043360 005301 DEC Ri :DEC COUNT LEFTFOR CONTINUATION 
11207 043362 005203 INC R3 :BUMP BAD WORD NUMBER 
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CZR6KE.P11 10-JAN-78 09:35 DATA GENERATION AND COMPARE ROUTINE 
11208 043364 010137 001706 MOV R1,WROCNT ;STORE COUNT LEFT 
11209 043370 010337 001704 MOV R3, WRONUM : WORD NUM IN ERROR 
11619 puaaed Ati 030000 Biz wp{Tl2!e1T13,R0 iMEM_MENAGE IS USE? 
Ligle 043402 005337 177572 DEC a#SRO : TURN IT OFF 
1iet4 04 153: 
1121S 04 012604 MOV (SP)+,R4 -POP STACK IN.O R4 
1igig 043410 005724 TST (R4)+ ? ERROR RETURN 
1ist 41g 16S: 
tiel le 012605 MOV (SP)+,R5 ; POP STACK INTO RS 
11381 o434ie O1Se01 MOY «CSP DSIRE iE op STACK INTO Ri 
11882 43420 615600 MOV (233° Ro ::POP STACK INTO R 
liges 4 00204 RTS 4 
1iees ; DATA PATTERN PROCESSING ROUTINE 
11ee? gouged 932700 040000 17S: BIT #8IT14,RO Sgn Ste COMPARE? 
11229 10446 MOV R4,-(SP) TORE R 
11850 Bd3434 Bha708 BR 2a$ 3h CENT INU COMPARE 
11232 012705 072414 29s: MOV HOBUFE,, RS ;GET DESTINATION 
11233 043442 012703 070414 MOV BUFF’ R3 T SOURCE 
11234 7 030000 BIT tefrielBiT13, RO ise MEM MANAGE? 
11235 04 oo14i2 BEG NO - SKIP 
11237 O434S4 012437 172354 MOV CRY) + dK IPARG LOAD PAR FOR RELOCATION 
11539 o4a4ed oBiapS 220000 SE iReLOcaT * warm 
11240 O4S4e6 016708 140070 MOV #140070, Rs SET DESTINATION TO USE PARG + OFFSET 
11s42 Based eae 140070 203: MOV #140070, R3 :SET SOURCE TO USE PAR& + OFFSET 
11244 3 1240 21S: MOV (R4)+,R1 ; OUNT 
Lies 043808 B1Gu4 MOV RY,-(5P) 3} ORE Re ke TORN 
il 10304 MOV R3;R4 UT nN TBUEE POINT 
11247 043506 00500 CLR R3 :CLEAR R3 FOR WORD RUMBER COUNTER 
11246 10 93270 000077 BIT #77,RO may DATA PATTERN SPEC 
11249 43514 O016 BEQ 13S NO - GO DO COMP 
112881 ; START OF GENERATION samee 
11503 Bysess Bibes> Borsa NOY ROT BROHED ee 
11255 043526 010337 001704 MOV NUM 
11256 043532 010137 001706 MOV R1;WROCNT 
Hee ; SERB aT A ARNEERER PETS. POE Eines ORE PPaeT seat eon” 
11260 : WILL NOT OCCUR UNLESS REQUIRED BY SWITCHES 
11262 043536 022700 030000 BIT #BIT12!BIT13,RO ;MEMORY MANAGEMENT REQUIRED? 
11263 6043542 o0140e BEQ 33$ :NO - SKIP 


C O RKE FCTNL 


¢ 


eee ee ee ee ee ee ee ee ee ee ee ee ee Be be bo ee ee eh be ee ee 


ee ee ee ee ee ee ee Be eee Be ee ae ee bee ee Be be en Pe eb oe ee ee be 


WWWWWWWWWUW 


Pipinnect tans paw Lt igo A RAE PRARR AAAS 54 
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-Pli 


Ss Get CESS ESSE tee ee Be 


P22? 





338: 


S6$: 


S78: 


Ses: 


sgs: 


60S: 


61S: 


62S: 


if 
E 


BOl 
Totsaneye Ooras | "W°"!? SBREAPENeRATION ANE COMPARE ROUTINE 


a 
T10,R0 


» 7 (SP) 
(SP)+,RS 


St 
S 
(RS)+ 


#3, RO 
sPATO3,R3 
70$ 


#4, RO 

Fi: 
#PATOY,R3 
70$ 


He, RO 
#PATOS,R3 
70$ 


* RO 
#PATOE,R3 
70S 
#10,RO0 
#PAT10,R3 
70S 


#11,RO 
#PAT11,R3 
70$ 


i GENERATE PATTERN IN IBUFF? 


;ELSE R4Y AND RS 


; PATTERN (ALL ZEROS)? 
> CLEAR 


DEC RoNT TO 
:L6se unt WORD COUNT ZERO 
(ALL ONES)? 


COUNT 
OOP UN i, WORD COUNT ZERO 


;PATTERN 2 SET UP 
;PATTERN 3 SET UP 
;PATTERN 4 SET UP 
;PATTERN 5 SET UP 
;PATTERN 6 SET UP 
;PATTERN 10 SET UP 


;PATTERN 11 SET UP 
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WWWWW 
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Re GS: 3 
000012 
oso0be 


000020 


011325 
00$301 
001375 


7 


60 03 030000 
23 177872 
0 


00S700 


COl 
MACY) BATA GENERATION AND COMPARE ROUTIRE” 


CMPB 


63S: 


64S: 


65S: 


66S: 


67S: 


68S: 
70$: 


71S: 


728: 


74S: 


738: 


ees: 


34S: 


BNE 
Bev 


CMPB 


B 
MOV 
BR 


CMPB 


MOV 
BR 


CMPB 


BNE 
MOV 
BR 


CMPB 


BNE 
MOV 
BR 


#12,R0 
64S 
grate, R3 
OSs 
#13,RO0 

$ 


#PAT13,R3 
70$ 


#14,RO0 
aBeriy, R3 


#1S,RO0 
aers, R3 


#16,R0 
#PAT16,R3 
70$ 


#PAT16,R3 
#81T11,R0 
738 


RY, -(SP) 
RO, 0 ~ (ar) 


ale, 
(R3)+, (RS)+ 
Pag 

RO 

71$ 

(RY)+, (RS)+ 
Ri 

72S 
(SP)+,RO 
(5P)+,R4 
2es 

(R3), <RS)+ 
Ri : 
738 

981 712!61T13,R0 
34 

a#SRO 

RO 


SEQ 0209 


;PATTERN 12 SET UP 
;PATTERN 13 SET UP 
;PATTERN 14 SET UP 
;PATTERN 15 SET UP 
;PATTERN 16 SET UP 


;SET UP FOR 16 
;FIRST WORD REPEAT? 
?YES - SKIP 

:STORE RY 


ST. 
iB 1 Rount FOR PATTERN LENGTH 
?STORE START OF BUFF 


Pet WORD. COUNT 
; 44 T 
HS par CENGTH COUNT 
; 56P IF NOT ZERO 
sREPEAT PATTERN IN BUFFER 
Bee WORD T 
?LOOP UNTIL WORD COUNT ZERO 
:REST RO 
RESTORE Ra 
?EXIT BUILD 
;MOV THE SAME WORD INTO BUFFER 
:DEC C 
?LOOP UNTIL YERO 
ENGR. MANAGEMENT REQUIRED? 


TURN OFF MEM MANAGEMENT 
HIS COMPARE REQUIRED? 
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Buwiae 13705 001700 
Bavisa 813703 001709 
Bb5iS? 895278 
Bobi3? o4auie2 


= 
— 


SSREREDR RSE MRRIER BSS RRR R OR IONS | 


hh 


ce et ae 


044230 100000 001664 
Riess BOGS eau, 


012762 oooo4O o00026 


me ae ee ee eb be bn be be he he be be pe 


(ced. coucl oul oped opual oul ane al ose al oul aomal oul oul eel oom oul onal onl one aed one one eed ed eed meal eel eel eed ead ee ed ed eed ded eee 


1 
41 
4le O44 1 ooooco o000e6 
iis Giese Bless Soo 
414 044274 E501 eee . 
415 O44276 901370 
ais 4300 000761 
418 
mt > 
i 
ie 
4 
is? O44 012737 O00112 001302 
427 1 104416 
So SBI BAS 
430 O44314 113700 001102 
431 O44320 O42700 177400 


DATA GENERATION AND COMPARE ROUTINE 


BPL 23S ;NO_- SKIP 

MOV DESHLD,RS ?RESTORE COMPARE PARAMETERS 

HOV A Re 
a JMP re ; ;GO START COMPARE 

. MOV (SP)+,R4 ::POP STACK INTO R4 

JMP ies’ :60 TOE EXit 
g :RETTE Brnse LOCK LOOP CLOCK AOJUSTRENT ROUNTINE © 7 
> VIA 3A T A 
1 Peete bist hi gen . Bao 3 #0 aa UP THE ath 
1a T ROUTINE. 
ti psc vt ers TH AVAILABL OE TS AND 
$a TS aDIAGNOSTIC MODE N_MR1. INSTRUCTIONS ON WHERE TO 
5 8& 0 oust. ane TEED ON THE CONSOLE. 
i THIS ROUTINE WILL LOOP UNTIL THE PROCESSOR IS HALTED. 
ADICLK: TYPE , OPRO19 ;TYPE ADJUSTMENT INSTRUCTIONS 

Vv AR YSTEM 
Ys BRORUAPRCRESFA  FCLEAR SUBS YE TE OR ive 

MOV #1, RKCS1(Re) 
SS: BIT aby, Y,RKCS1(R2) ;WAIT FOR READY 

BIT BLCLKPR, OPTFLG ;TEST IF CLOCK PRESENT 

AR wLaoo 1M an SATERRUPT ENABLE 

1s MOV #OMD,RKMRI(R2) ;SET DIAG MODE 

moy gi2.,R1 :SET A COUNT 
2s Cc R1 : Cc 

BNE 2s ?LOOP UNTIL ZERO 

MOV #0, RKMR1(R2) :C EAR cnt 

MOV #12., Ser Cc 
= pee Rl * LOOP MT RO 

BR ig a “aN 


-SBTTL CONTROLLED HAL 


: Tin NT ENTERE TYPED. THE 
; were | he tacts g PECAL BRATED, AO TE rang 


* 
* 
$a THEE LOCATION REFHT WHICH CONTAINS THE ADDRESS 
$i be $e TROLLED 8 TO BE REFORMATT 
CTRHLT: MOV “STN, STESTN ;SET UP FOR HALT FAIL 

TS INIT ich AR YSTEM 

ERROR : ANET ERROR 
MOVB STSTNM,RO a CURRENT TEST NUMBER 
BIC #177400, RO :CLEAR UNUSED BITS 


SEQ 0210 


Stee a Ty FCTNL CTRL DIAG MACY11 30A(10S2)_ 10-JAN-78 09:57 PAGE e211 SEQ 0211 
CZRGKE.P11 NE 


10-JAN-78 09:35 CONTROLLED HALT SUBROUTI 
11432 044324 022700 000003 CMP #3,RO ;TEST IF TEST NUMBER 3 
11433 14e4 BEQ PROGEND :GO TO HALT PROG 
114 036252 JSR R4, LRLOAD :LOAD “L” REGS 
: 1435 4 113 RECAL Reng 
1137 BUFF ADDRESS 
iis Ste Bop ‘BYIE OO toe 
11486 a ne o00sb9 + itote rh) 
tigas 104417 TLOADRK LOAD RK REGS 
11443 104e3 TWATI6 iM FOR INTERRUPT 
tae 4354 104002 ERROR 2 TO SLOW/NOT COMPLETE ERROR 
11446 4 104421 TCHKOP cuee K OPERATION FOR ANY ERRORS 
11442 4 104004 ERROR 4 ;0RS, 6, 7 ;REPORT ALL ERRORS 
11449 362 005037 001662 CLR INTSET CLEAR INTERRUPT 
11450 4 104437 TWATSS :WAIT FOR SECOND ENTERRUPT 
11451 4370 104002 ERROR 2 
11453 72 104421 TCHKOP :CHECK OPERATION FOR ANY ERRORS 
11458 pa tae OR ;0R S, 6, 7 REPORT ALL 
114 43 104416 TSSINIT ; CLEAR YSTEM 
11457 atte 104003 ERROR 3 *BAD I iNETe RROR 
11459 4402 005737 001676 TST REFMT ;TEST IF REFORMAT REQUIRED 
11460 aH 001435 BEQ PROGEND ;NO - GO TO HALT 
1146, 044410 104401 053457 TYPE , OPROZO ? TYPE MESSAGE 
11463 044414 004437 036252 JSR R4, LRLOAD sLOAD “L” REGS 
11464 ouused 0001 WRHEAD . ? WRHEAD 
11465 o444e 77676 -102 +=102 WORDS 
11468 ous 2414 OBUFF : OBUFF 3 BUFF ADDRESS 
1146 -BYT : SECTOR 
11468 44 000 “BYTE O * TRACK O 
11468 4430 000312 3le *CYLINDER 312 
11471 44 7 
11474 a ‘ 37 001676 TST REFMT j TEST IF, CYL Cc 
11473 O4444O 005037 001614 CLR L.DCYL ELSE POAD FOR CYL 0 
11474 g04437 042636 S$: ISR R4, GENCOM RATE HEADERS 
11475 450 12 1200 
11477 o444S2 104417 TLOADRK ;LOAD RK REGS 
114 454 104434 TWAT1S9 WATT FOR NT E 
11478 Baauee 104002 ERROR 2 0 SLOW/ ERRPLETE ERROR 
11481 O44460 104421 TCHKOP ounce OPERATION FOR ANY ERRORS 
11482 O44462 104004 ERROR 4 ;O0RS, 6, 7 ;REPORT ALL ERRORS 
11484 4 2737 oO00002 001607 CMPB #2,1..D0T ;TEST IF TRACK 2 FORMATTED 
tues Gaiize O614G9 or Bea. PROGEND HES atl nc 
11487 O44S500 000761 BR S$ D0 NEXT TRACK 
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11488 
11489 oO44SO2 104401 053553 PROGEND: TYPE OPRO21 ;TYPE HALT MESSAGE 
11490 4 0 1100 MOV #STACK, SP *CLEAR STACK 
11491 1 1103 CLRB SERFLG ?CLEAR ERROR FLAG 
1143¢ 1 1264 CLR SESCAPE :CLEAR_ ESCAPE 
114 2 TST ase :TEST IF MONITOR PRESENT 
11494 r4a4 BEQ :NO_- SKIP 
1149S 04 0324 CLR SEOPCT :SET FOR END OF PROGRAM 
11436 o44s 000137 O32422 IMP :GO TO END OF PASS 
11498 oo0000 10S: HALT ;HALT PROGRAM 
11499 044542 000137 001776 IMP START1 :GO TO RESTART IF CONTINUE 
1150} .SBTTL T FAqL ROUTINE 
11 ; THIS ROUTINE IS ENTERED IF A HARDWARE ERROR IS DETECTED WHEN 
11503 x THE CARTRIDGE IS BEING REFORMATTED PRIOR TO HALT. 
11504 o44s oon240 ABTFAIL: NOP 
1150S o44550 104401 053614 TYPE aQpRoee ;T HALT FAIL MESSAGE 
11506 oO44554 6000137 O44S62 IMP 3GO STOP PROGRAM 
11507 .SBTTL TYPE ROUTINE 
11509 33 MERERRMAERKRERY RE REKRKESMKKERSRERHKARSS HERE M EEE REE SAE KARKEREERUKEE 
11510 :*ROUTINE TO TYPE ASCIZ . MES MUST TERMINATE WITH A O BYTE. 
11511 ‘*#THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
11812 :*¥NOTEL: ShuLL ONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
11513 : ¥NOTES: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
11814 j #NO E3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
tie13 CALLE Oc A TRAP INSTRUCTION 
11818 iH oe TYPE , MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
test it WShon 
11255 i 
11253 OuNSEO 105737 001157 STYPE: TSTB STPFLG 3;I1S THERE A TERMINAL? 
11525 4564 100002 BPL 1S ::BR IF YES 
115¢6 00 HALT ??HALT HERE IF NO TERMINAL 
tieSa o44e7, 1s Ay 25, -«sP LEONE 
11529 4574 0 7600 ooo002 MOV a2tsP) RO t}Gey abpRess OF ASCIZ STRING 
11530 2 000001 001316 CMPB #APTENY, SENV HE NING IN APT MODE 
11 o4 1011 BNE >3NO CHECK FOR APT CONSOLE 
11232 044610 132737 000100 001317 BITB BAPTSPOOL,SENVM :;SPOOL ME TO APT 
11533 O446 0014 BEQ 6 ;;NO,GO Cv FOR CONSOLE 
11534 Dd4eS8 010037 044630 MOV RO,61$ ::SETUP MESSAGE ADDRESS FOR APT 
11835 pati 004737 033752 ae JSR PC; SATY3 ::SP MES: 5e° APT 
11239 1 000040 001317 625: BITB SAPTCSUP , SENVM tiOBT Cc SSED 
11538 Oa4e40 001003 BNE 60S ji YES, SKIP TYPE OUT 
11539 O44E42 112046 2s: MOVB (RO)+,-(SP) He CHARACTER TO BE TYPED ONTO STACK 
11540 Owes 905 B 4§ i 7BR IF IT ISNeT THE TERMINATO 
11541 46 26 TS (SP)+ ?:IF TERMINATOR POP IT OFF THE STACK 
11542 4 012600 60S: MOV (5P)+,RO : RESTORE RO 
11543 O44652 062716 oD0002 3S: ADD #2, (SP) ::ADJUST RETURN PC 
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E. 
11544 ire, ooo00e 
118s : A5c7is 000011 
11348 43 000200 
iisve Giiere O01 
11580 ISO1 
ll 04S036 
HES Gare Ore Bizz 
11S 1 
11336 044722 O13746 001154 
11553 re 105398 000001 
Lise, Gaias Gaza? W772 
Hess BAAR libres 
11565 
11358 
ll 27 uy 
HES Eure Mire Be 
Hs ae i 
11872 1 3 134152 
11573 Giuze 108777 
HEE EieRe USC? soomne 
lis72 Geos 010 
11323 S024 erties 000012 
iiss OveGse 901408 
11286 04S036 0000 
11584 oO04S040 000207 
1158s 
{iSee 
11588 
11589 
11590 
11591 
11592 
11893 
11594 
1153 
11897 
1iS98 o4SO4e 
11599 O4S04e O1004%6 
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04S036 


134144 
ooo00e 


ooo0de 
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TYPE ROUTINE 


RTI ; ;RETUR 
4S: cnr #HT, (SP) + BRANCH IF <HT> 
cre SCRLF, (SP) ;;BRANCH IF NOT <CRLF> 
TST (SP)+ ;;POP_ <CR><LF> EQUIV 
axne 3; TYPE A CR AND LF 
CLRB CHARCNT CLEAR CHARRCTER COUNT 
He XT CHARACTER 
SS: ISR PC, STYPEC ::GO T THIS CHARACTER 
6S: CMPB SFILLC, (SP)+ :;1S IT TIME FOR FILLER CHARS.? 
BNE 2s ::IF NO GO GET NEXT CHAR. 
MOV SNULL , -( SP) ::GET # OF FILLER CHARS. NEEDED 
;;AND THE NULL CHAR. 
7S: DECB 1(SP) +;DOES A NULL L NEED TO BE TYPED? 
BLT ::BR IF NO--GO POP THE NULL OFF OF STACK 
JSR PC, STYPEC ::G0 TYPE A L 
DECB SCHARCNT ::DO NOT COUNT AS A COUNT 
BR 7$ +: LOOP 


;HORIZONTAL TAB PROCESSOR 


83: MOVB #’ (SP) 5 s REPLACE TAB_WITH SPACE 


JSR PC. $TYPEC abi M E 
BITB 8 7; SCHARCNT i BRANCH H IF NOT AT 
ene (SP)+ OP £ OFF STACK 
BR $3 He SPACE TE 
STYPEC: TSTB He > ;WAIT NENTIL PRINTER IS READY 
ROVE {SP} aSTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
CMPB R,2tsP) ?:IS CHARACTER A CARRIAGE RETURN? 
BNE is. ::BRANCH IF NO 
cLRB SCHARCNT ;$YES--CLEAR CHARACTER COUNT 
1S: CMPB #LF (SP) 44 (3 CHARACTER A LINE FEED? 
BEQ STYPEX ::BRANCH IF YES 
INCB (PC)+ : ?COUN NE CHARACTER 
SCHARCNT:.WORD O ?:CHARACTER COUNT STORAGE 


STYPEX: RTS PC 
-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


; pe heal at ak at shh abe tet igtt t 

j ATH 5 ROUTINE IS USED TO CHANGE A 16- NARY NUMBER TO A sO1GiT 

CIMAL (ASCII) NUMBER oy YPE I ON WHETHER THE 
IT {Ve OR_NEGATIVE A SPACE OR A MINUS SIGN WILL S TYPED 

#BE HE FIRST DIGIT CF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 

j #REPLACED WiTH SPACES. 


; * MOV NUM, -(SP) 
3% TYPDS 


STYPDS: 


;;PUT_THE BINARY NUMBER ON THE STACK 
;;GO TO THE ROUTINE 


MOV RO,-(SP) ;;PUSH RO ON STACK 
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Guboe 


bb Ob bb 
BBSRReDR eS 
one 


COOP SCOOKKS 
ed ee 


ONOU CWO 


BRE aN ees 


eaten 


ee ee ee ee Be ee ee ae be me Be pan ae Be ae be Pe Pee ae be an be Bn ae nee be pe ee fe Ps ne ps pe nee Be De ee Ps Pe Pe Pe pe 
Ce ceed anh oul curl ceed cel earl anel seed ed onl aul ced ced cel aed eed eel nel eed eel aed ed el ed ed od ed ed ded eed nd 
FaRARR ERR RRR RRR RARE 
Pe be et ee pee he ee ee ee ne fee Dae ba be fe pn Bn fee ban pe 
om PENS LUTE VOR LUOR LOTS LS 
o ut) rMVo £ 


COCKS SOSSLrOTrrr 


uur 
it = 


- -20000 


oe 


Oo-00000—--— 
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10146 


1 


Se 


Weer ee o ELE 
a 
in 
ganeaee 
Uee. 


sans 


——— 


a 


sta} 
or 


: 
& 


g 


Beale 
03003 
os a 
000040 
Ad8555 
O2e00e7 000010 
i 
4 
1057; 
00003 
ek 177777 
126) 
ie 
ise 
Ba5b7 o4SeS6 
16666 000002 


o~ 
or Ea 
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ooo001 


177777 


177776 


oooo04 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


MOV R1,-(SP) ;;PUSH R1 ON STACK 
MOV Re, - (SP) :;PUSH Re ON STACK 
MOV R3,-(SP) ;;PUSH R3 ON STACK 
MOV RS:-(SP) ;;PUSH_RS ON S 
MOV #20200, -(SP) 7 3SET BLANK ie arr SIGN 
MOV 20(SP)/RS :3GET ME an 
BPL 1$ 8 IF T sahity 
Sie Fuca es Te Re 
1S: CLR Bo as eeiue T tN Ss ENDER” 
- nove Hames 3 SET THe sharia TO A BLANK 
’ MOV s TBL(RO),R1 ted 
3S: SUB Ri, RS tHFonm THs BCD DIGIT 
Ene R = HE BCD DIGIT BY 1 
4S: ADD R1,RS 
TST i 3 HECK Te IF A a eg 
fore Hist tL "Bo a ADING 0’°S? 
Ss: BSLB (Se) Ho 
6S: gree ara ete, oeb 8 Bigir asclI 
78: BIS He IF NOT ALREADY A DIGIT 
nove Re, tRa)+ HPUL ‘“ SBRBET R IN THE OUTPUT BUFFER 
CHP RO, #10 $s CHER THE TABLE INDEX 
Se ee ti 
R ‘ 4 CHANGE 
Qs: iss (sP+ is ie LSD Oe First NON-ZERO? 
gs: PRB CASS OCR HG ast EBRrRAfOR OF TYPING 
ee en re Sm 
MOV (3b) Re Ha Tack INt9 R 
roy. eeising = Hege Sra INTS fa 
TYPE Sark > NOW FYPE THE NUMBER 
MoV ecsP) H¢SP) ::ADJUST THE STACK 
py . ;;RETURN TO USER 
SDTBL: 10000 
1000 


S08 BL Kid 
Serre BINARY 10 OCTAL (ASCII) AND TYPE 
55 HAE AEE RE AE SE AE HE EE HE EE HE eH HE AE HEE HEE EEE ERE EERE 


SEQ 0214 


I01 
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;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
;*OCTAL (ASCII) NUMBER AND TYPE IT. 


~ 
-— 
o 
uw 
vs 


11657 
11658 j #STYPOS---ENTER HERE TC SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
11660 $x * MOV NUM, -(SP) ;;NUMBER TO BE TYPED 

11661 1 a TYPOS ?:CALL_FOR TYPEOUT 

11662 + .BYTE N ::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
1teea . cathe Os siM=1 OR O  _tyPE LEADING ZEROS 
11665 - + OE CUPPRE S LEADING ZEROS 
11667 :¥STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
11668 :xSTYPOS OR STYPOC 

11669 :*CALL: 

11670 2 i MOV NUM, -(SP) ;;NUMBER TO BE TYPED 

11671 i TYPON *:CALL FOR TYPEOUT 

11623 j ¥STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

11675 be * MoV NUM, - (SP) ;;NUMBER TO BE TYPED 

11678 ti TYPOC ?:CALL FOR TYPEOUT 

11678 S266 017646 o00000 STYPOS: MOV a(SP),-(SP) ; PICKUP THE 

11679 pueses 116637 OO0000i1 045511 MOVB PS 2p)’ SOFITEL ?;LOAD ZERO FILL SWITCH 

11680 5300 112637 045513 (SP)+°§ +1 $:NUMBER OF DIGITS TO TYPE 

11681 2304 716 oo00002 ADD & aS ::ADJUST RETURN ADDRESS 

11683 il 000001 O4SS11 STYPOC: MOVB #1, S0FI 3;SET THE ZERO FILL SWITCH 

11684 1127 000006 045513 MOVB #6; SOMODE+1 ::SET FOR SIX(6) DIGITS 

11685 118737 000005 045510 STYPON: MOVE #3, SOCNT FSET. THE ITERATION COUNT 

11687 010446 R4, -(SP) ;;SAVE RY 

ll 010546 RS’ -(5SP) ;;SAVE_RS 

116 708 045513 MOVB SOMODE+1, RM 3:GET THE NUMBER OF DIGITS TO TYPE 
11631 062704 o00006 DD 6,R ;;SUBTRACT_IT FOR MAX. ALLOWED 

116 il 045512 MOVB R4’ SOMODE ?:SAVE IT FOR USE 

11693 1 045511 MOVB SOFILL,RY ?:GET THE ZERO FILL SWITCH 

11694 4 O1 0012 MOV 12(SP),RS $:PICKUP THE INPUT NUMBER 

1169S CLR 3 ?:CLEAR THE OUTPUT WORD 

116398 72 105 1S: ROL RS ::ROTATE MSB INTO “C” 

116 BR 35 *:GO DO MSB 

11698 108 2s: ROL RS ?:FORM THIS DIGIT 

11700 4 ROL RS 

11701 B4e4o4 breso3 Rov «RE, 

1170¢ 406 3S: ROL R3 ;;GET LSB OF THIS DIGIT 

11703 410 1 : o4sS12 DECB SOMODE jj TYPE HIS DIGIT? 

11705 418 os2703 177770 BIC #177770, R3 ?:GET RID OF JUNK 

117 1 BNE ug :: TEST FOR O 

11707 S454 704 TST 4 ::SUPPRESS THIS 0? 

11708 pues 1403 BEQ S$ i FBR IF YES 

117 4 5204 4$: INC +:D0N’T SUPPRESS ANYMORE 0’S 

11710 O4S432 052703 oo0060 BIS #’0,R3 ::MAKE THIS DIGIT ASCII 

11711 045436 052703 o00040 S$: BIS #’ 'R3 :MAKE ASCII IF NOT ALREADY 


aO0 


Ou Ne 
446 
4Se 
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110337 O4SSO6 
Be 04SS06 
1 i 045510 


z 

1171 

1 515 

11714 

11715 

i 218 

1171 

i 718 Buus 

Li7g0 Biew70 Blea 

11782 eee ea oooo0e 
He: Ble ORS 

11768 000 

Lifer SieEIO BMD 

11788 pueeie 000000 

11731 

11732 

11539 045514 000000 

11739 eels BRO OOS 

117 ss 00 

11737 O4SS2e o00001 

He oiees 

11740 

11741 

11742 

11743 

11744 

11745 

11746 

11747 

i{3u8 O4SSe4 005037 O4S514 
11750 O45S pi sea? o4SS2e2 
11751 O4S5 13737 O4SS16 
117Se O4SS44 0127 045574 
11753 O4SS5S2 012737 000200 
117e0 O4¥SS60 0057 133362 
1175S O4SS64 BASS 000100 
11756 045572 0207 

11757 

11758 

117593 

11760 

11761 

11762 

11763 

11 3ee O4SS74 1177468 133346 
117686 O4S5600 042716 177600 
11767 O45604% 021627 000003 


JOl 
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ooo004 


O4SS16 
045520 


000060 
000062 


133352 


BINARY TO OCTRAL .ASCII) AND TYPE 


MOvVB R3, 8S ;;SAVE FOR_TYPING 
TYPE et ::G0 TYPE THIS DIGIT 
7$: DECB $OCNT ;;COUNT BY 1 
BGT 2g ::BR IF MORE TO DO 
BLT 6$ ;;6R_IF , 
INC RY :: INSURE LAST DIGIT ISN’T A BLANK 
6S: ROV tep)4 RS 5 oO PO EEL AST DIGIT 
MOV (SP)+) RY RESTORE RY 
MOV (SP)+;,R3 ? RESTORE R3 
nov ecsP),4(SP) ::SET THE STACK FOR RETURNING 
RTI : ; ; RETURN 
8S: .BYTE 0 ::STORAGE FOR ASCII DIGIT 
“BYTE 0 :: TERMINATOR FOR TYPE ROUTINE 
SOCNT: :BYTE 0 *:0CTAL DIGIT COUNTER 
SOFILL: .BYTE 0 :3ZERO FIL SWITCH 
r 0 : NUMBER IGITS TO TYPE 


OMODE: .WORD 
-SBTTL TTY INPUT ROUTINE 
5g HAE HEME SE ME 0 AE SE A 0 0 A a a a a a a a HHH 


. LSB 
STKCNT: .WORD 0 ;;NUMBER_OF ITEMS IN QUEUE 
STKQIN: .WORD jj BNPUT POINTER 
S$TKQOUT: .WORD ::QUTPUT POINTER 
STKQSRT: .BLKB 1 ::TTY KEYBOARD QUEUE 
STKQEND=. 
. EVEN 
;*#TK_ INITIALIZE ROUTINE 
!*¥THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
:%SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
}#CALL: 
: SR PC, STKINT 
1 i RETURN 
$TKINT: CLR NT ;;CLEAR COUNT OF ITEMS IN QUEUE 
MOV #STKQSRT,STKGIN ;;MOVE THE STARTING ADDRESS OF 
MOV STKQIN, STKQOUT $;QUEUE INTO THE INPUT & OUTPUT POINTERS. 
MOV aSTKSRY S¥TKVEC :INITI ize THE KEYBOARD VECTO 
MOV $200 aetKvec+e 33" LEVEL 4 
TST asTke ;;CLEAR DONE FLAG 
mov #100, aSTKS ; NAB E TTY KEYBOARD INTERRUPT 
RTS P tt RET TO CALLER 
5 #TK SERVICE ROUTINE 
:*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
j xBY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
+ *IF tHe HE ORHETER IS A “CONTROL-C” (fC) STKINT IS CALLED AND 
:*UPON RETURN EXIT IS MADE TO THE “CONTROL-C” RESTART ADDRESS (CTRHLT) 
$TKSRV: MOVB QSTKB,-(SP) ;;PICKUP_ THE CHARACTER 
BIC #tC17?, (SP) ::STRIP THE JUNK 
CMP (SP), #3 ::IS IT A CONTROL C? 


SEQ G2l6 
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11768 S61 1007 BNE 1$ ;;BRANCH IF NO 
11769 i O1 046710 TYPE SCNTLC i TYPE A CONTROL-C (tC) 

1155 : ee ta al bt aND ON UP Stack 

il 1 Qussge IMP CTRHLT >;CONTROL C RESTAR 

11354 1Bo4 nil a oe ae tt ARANCH IFONO 

11775 399 000176 001140 CMP #SWREG, SWR 331S SOFT-SWR SELECTED? 

11778 ay 1500 BeQ 63 7:G0 TO SWR CHANGE 

11778 46 2S: 

11773 4 : 37 000001 o4SS514 CNP 81, STKCNT 5318 THE QUEUE FULL? 

1178 401 001266 TYPE $BELL TRING THE TTY BELL 

11? 2 zee rst tSP)+ $5 CLEAN CHARACTER OFF OF STACK 
11784 1687 o00023 3S: cne (SP), #23 33 Ts IT A CONTROL-S? 

11786 74 or? 133244 cLR aSTKS Hetean-€ TTY of EY BOARD INTERRUPTS 
11780 1 558 133236 31S TSTB serke + WAIT FoR m 

11789 100375 BPL 31$ j LOOP UNTIL ITS THERE 

11790 71 1 133232 MOVB asTkB -(SP) 33GE THE TER 

11731 714 ouerie 477600 BIC aici ?, (SP) j MAKE I sBiT ASCII 

11933 550 OBI . SNE {oe)+, bel Pe HIE NOT 

11738 ne 000100 133210 mov #100, aSTKS j REE TTY KEYBOARD INTERRUPTS 
11 045514 325: INC STKCNT tt SUNT THIS CHARACTER 

it Bbas06 000140 cH (SP), #140 3315 IT PP R CASE? 

11799 000175 chr (oP), #175 Ht: 1 Pree CHAR? 

ett ae 90004 BIC #40, (SP) tt RAKE He Lippe CASE 

11802 O45762 1126 177530 4: MOVB (SP}+,aSTKQIN ;;AND PUT IT IN QUEUE 

11803 37 045516 INC Tkath 33 ATE THE POINTER 

it B04 oO" Ges 045516 o4SS23 cn TKQIN, 8STKQEND ;; TH ? 

11806 04 603903 oY MOV TKQSRT N 3: TT TER 

i607 6008 32 SS22 O4SS16 me mov “STK , STKQI see HE POINTE 

tt 803 33 panenesseeerreueeroth Guta De 
11811 ;#ROUTINE IS ENTERED F THE HANDLER, AND WILL 

11812 ‘#SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TIAP 
11813 *xCALL WHEN OPERATING IN TTY INTERRUPT , 

11814 046012 922737 000176 901140 $CKSWR: CMP ‘ G, SWR 33 ist SOFT-SWR SELECTED 

11816 Bede 105777 133116 ts FB SBF Ks 5318 A CHAR WAITING? 

1181 100121 BPL 15$ ::IF NOT, EXIT 

11818 6030 117746 133112 MOVB SSTKB, -(SP) >; YES 

11819 6034 2716 177800 BIC #tC17?, (SP) i MAKE IT 7-BIT ASCII 

11833 604 1627 000007 CMP (SP), #? *21S IT A CONTROL-G? 

11821 O46044 061300 BNE 2s ::IF NOT, PUT IT IN THE TTY QUEUE 
11826 ;;AND EXIT 
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112737 


Reese OT 


BREE 
zs 


104401 
: Arata 
able ibsge 

114 104401 


105777 
100375 


De ee ee ee ee ee 


err 
2 7993 
FOPoLoaw KP 


@ 
a] 


Ron 


aa 
<= 
_ 
= 
N< 
SD 
=—UIN 


046222 


Ses eed ALY 


REAR 
SS 
wae 


ee ee ee ee ee ee ee ee ee ae ee ee ee te ee he be ee be ee oe pe Pe 


me ee ee eb he pe 


S555 
te 
oo 
aes 
he 
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001134 


000015 


eae 
001135 
000100 
044772 
000060 


000067 
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000001 
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132674 
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TINE 


LEONTROS Ts PASSED TO THis POINT FROM ELTHER THE TTY INTERRUPT 


is NT TNE AS EROR’ 
rea =G BEING T 
ay C 
ISR PC S$TKINT 
CLR 
MOVB #1, SINTAG 
SGTSWR TPE RM 
* MOV SaREG. -(SP) 
TYPOC 
19S aR ={ De 
i gtR P) 
7S: TSTB astks 
BPL 4 
MOVB asTkB -(SP) 
BIC #tC177, (SP) 
cNe ),#3 
NE 
TYPE SCNTLC 
chPe SIATAG, #1 
MOV #100, a$TKS 
8s: IMP CTRHLT 
9S: CMP (SP), #25 
BNE iBs , 
TYPE S$CNTLU 
20S: ADD be, SP 
BR 198 
10S: CMP (SP), #15 
oF dS, 
BEQ 115 
MOV 2(SP), aSWR 
11S: ADD #6, SP 
14S: TYPE ScRLF 
cMPB SINTAG, #1 
NE 1 
MOV #100, aSTKS 
133: RT 
16S: JS PC STYPEC 
CMP (SP), 
BLT ies 
CMP (SP), #67 


TO THIS POIN 


aM Megas a BeciStte Beshc"eetber 


Y INTERRUPT SERV 


E pie c-¢ OFF STACK 
A NPU UE 


SABLE TTY KEYBOARD INTERRUPTS 
T INTERRUPT MODE INDICATOR 


; SE 
;ECHO THE CONTROL-G (?G) 
TYPE CURRENT CONTENTS 


oe 


ASC TT CALL DIGITS) 


CHAR THERE? 
;IF NOT TRY AGAIN 
;PICK UP CHAR 

;MAKE IT 7-BIT ASCII 


eA Page 


99 
;YES, ECHO CONTROL-C (tC) 
53 
i 


AN UP 
ERNeLE TY KEYBOARD INTERRUPTS? 


LOW TTY KEYBOARD INTERRUPTS 
: CONTROL-C RESTART 
ttBR ITA CONTROL ~U? 
ANCH IF NOT 
i YES ink Boe CONTROL -U ctU3 
IGNORE EIU INPUT 
a TRY IT AGAIN 


3318 IT A_<CR>? 
$F YES, 5 IT THE FIRST CHAR? 
IF YES 


ie Bae 


TTY KBD INTERRUPTS? 
{BRANCH TE TTY KBD INTERRUPTS 
a 
RANCH TF YES 
HAR > 


ICE 
OF A 
CTED. 


SEQ 0218 


nm 
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E 
7 ; ; BRANCH 
THES? BYEStG 893932 ooone0 BABS cps + ERO SM OPE ASCII 
1168s fap3  [o0de a Fe bIPONCH IF YES6 
ll 1 ASL (SP) *?NO, SHIFT PRESENT 
118ee Boe st ASL (SP) :; ‘CHAR OVER 9 MAKE 
1188S Rubdg ooo002 17S: 256) tI KEE eect 
ties men 056616 177776 Be 52(SP), , (SP) 7 SET Ne W CHAR 
1 001272 18S: YPE QUES 1 PE TE Re ES 
11891 O463S2 000720 na BR 20$ :;SIMULATE CONTROL-U 
Hex : 
1 18aP : Lae eee ee ee TNE CHARACTER PRON The TTY 
11896 pATHIS S ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
11 : * RDCHR :GET A CHARACTER FROM THE QUEUE 
11838 $i BOC RN HERE +t CHARAC ER IS ON THE STACK 
11300 iH ::;WITH PARITY BIT STRIPPED OFF 
11308 046354 011646 SROCHR: MOV (SP), -<(SP) ;PUSH_D DOWN THE PC AND 
11904 046356 O16666 000004 ooo002 MOV 4(SP3},2(SP) + A oie 
1123 RA? BoSoee ca rete 3 td ces 
i i 046400 nov #64S, -(SP) : ssBUT * PUT STACK 
1 64S: 
11316 Eris QO5737 045514 1S: T i STKCNT ato ON A CHARACTER 
1 045514 Cc TKCNT NT TER 
tat Bueuts 973762 oo0004 B6va = SSTKQOUT, 4(SP) Gey One CHARACTER 
11914 4 gus520 NC TKQOUT He INTER 
Lisi 4 fsicrs 5 o4ss23 g rk T, #STKQEND ee WF oF THE END? 
1191 64 012737 0% 4 z, T’:: 
1131 nie S522 o4ss20 ait nov SSTKGSRT, STKQOUT ; T THE POINTER 
it 8 Tt ge ors are tg ere ty Ae a crircamtesmeccmeccmente: 
11981 > #CALL: 
11985 e RETURN HERE ++ INORESS g Oe FIRST CHARACTER R WILL BE ON THE STACK 
11984 * i 33 POOR ERATOR Lite Be A BYTE OF bt 85.8 
11926 046444 010346 SROLIN: MOV R3,-(SP) 5 
11927 CBG OO5046 ‘ Ms CLR n(86) be Has Fue RUBOUT KEY 
11388 SueNes bo87 sate 43: CMP sgtTy N48.,R3  3;BUFFER FULL? 
il 4 1614 BLOS 4 ::BR IF YES 
119 doe 104410 ROCHR 33 HARACTER FROM THE TTY 
il 4 11261 MOVB (592+ (a3) aa 
11933 4 1267 : 000177 1US: CHEB #177, HH re fF A RUBOUT 
11935 6474 005716 ST (SP) ::IS THIS THE FIRST RUBOUT? 


' 
EE 
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ll DY64 1 BNE 6$ 550 IF are 

il OYE 1 134 046676 MOVB #’\,9S +: TYPE A BACK SLASH 

11 5: 1 1 76 TYPE 

il : 177777 MOV 6-1, (SP) ;;SET THE RUBOUT KEY 

ll 6S: DEC : BACKUP BY ONE 

11941 2 046700 CMP R32, #STTYIN ::STACK EMPTY? 

1194e 1 BLO ::BR IF YES 

11 a ill 046676 MOVB (R3), 9S ::SETUP TO TYPEOUT THE DELETED CHAR. 
1194 2 046676 TYPE 9s ::G0 T 

il : BR $ +?GO READ ANOTHER CHAR. 

11946 7 Ss: TST (SP) eee. KEY SET? 

il Ma Ie, BEQ 7$ 33 

11 D4E544 11 000134 046676 MOVB #’\, 9S 33 A BACK SLASH 

11949 OYE 1 046676 TYPE 9g 

11 DYESS! 16 CLR (SP) Sees 3 T_KEY 

ll D46560 122713 O00025 7$: CMPB #25, (R3) 7315 C TER A CTRL U? 

11 DYE564 1 +3 F 

ll DYES! 1 1 046715 NTLU 3 A CONTROL “U” 

11954 O46 7e6 BR :3G0 START 9 R 

11 D46574 13 o00022 8S: MPB #22, (R3) 3318 C ER A “tR™? 

11 B46600 001011 3 i a 

tt BHeEO §iDaNOT 7 aT i 7 GLEBR THE ASTOR or ree 

11 46610 1 502508 TY SER EN +: TYPE THE INPUT "eS TRING 

1 D465 14 Ai hears o 2 . 33 ICKUP ANOTHER CHACTER 

il Me: 5G 111 76 3S MOV is ), 98 $F CLEAR, THe “BUEEER_ avo a 
11964 O4663c 1o4a01 | Guee7e TYP a3’ ey 

11965 O46E 2723 000015 CMPB &iS, (R3)+ Hg K FOR, RETURN 

1 1366 D45640 1 BNE es 55k T RETURN 

1196 DYeGHe 1 Ba 7777, cLRB =1(R3) He :SUEAR, RETURN (THE 15) 

11368 DUBE $726 TST tSb54 :3¢ CLEBN nN RUBQUT FEO EROM THE STACK 
119 D46654 O1 MOV (SP)+,R3 F 

11971 O4665! 11646 MOV (SP) ,+(SP) HE iABIUSTS 1h STACK AND PUT ADDRESS OF THE 
119 ' D 0166 04 oo0002 MOV 4(SP5 2°(SP) He FIRST ASCII CHARACTER ON IT 
11373 12766 046700 oo0004 HOV aSTTYIN, 4(SP) 

11975 26 9s: .BYTE O ist T OREGE FOR ASCII CHAR. TO TYPE 
11 ve TE eeraNeTor 

11395 i STTYIN: .BLK 4 RE ESERVE (BYTES FOR TTY INPUT 
119 710 041536 OOSO1 000 SCNTLC: -ASCIZ 7#C7<15><12> CON 

1197 7 O05 000012 $CNTLU: “BBCI ati <16><1e> He ONTROL we 

ll 7 O4 1 O SCNTLG: .ASC 7#G/<15><12> ;;CONTROL “G” 

11981 046727 015 OS1412 051127 : .ASCIZ <¢<15><12>/SWR = 

tises teach 6389 Ratt 020127 SMNEW: .ASCIZ / NEW = / 

11364 746 O200 “3a8 ae 

1198S 046752 . EVEN 

11386 “SBTTL READ AN OCTAL NUMBER FROM THE TTY 

11988 ; = RERELKRERERRARARRRARERKERRRAERAKRARKAHRRKKRRERARKRAKRKARRRKAREKAHE 
11389 s BTHIS ROUTINE WILL R READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
11991 :¥THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
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See ia aet THE 30 we 


i CRN HEPE 
SROOCT: V (SP) ,-(SP) 
nov 4(SP} 2 (SP) 
MOV RO, -(SP) 
MOV R += (38) 
MOV »~ (SP) 
1S: ROLIN 
MOV (SP)+,RO 
MOV RO,SS 
CLR Rl 
CLR Re 
es: MOVB (RO)+,-(SP) 
BEQ 
CMPB #’0, (SP) 
BGT 4g 
CMPB #’7, (SP) 
BLT 4S 
ASL Rl 
ROL Re 
ASL Rl 
* Ff 
ROL Re 
BIC #tC7, (SP) 
ADD (SP)4+,R1 
3$: ee, (SP)+ 
MOV Rh» AE CSF? 
MOV IOCT 
MOV (SP)+,Re 
MOV (SP)+,R1 
MOV (SP)+,RO 
RTI 
4S: TST (SP)+ 
CLRB (RO) 
TYPE 
S$: . WORD 0 
TYPE | eee 
SHIOGTs 0 
TTL gave? AND RESTORE R 


' kSaveE 


 ¥TOP---( +16) 


a eat 


Rhine FEED, Th fre cOnPL PLETE NU 
BY TYPING 
L reco ns TOP OF THE STACK 
HIGH ITS ARE IN SHIOCT 


FOR THE 


LINE 


eeerweees wows es eeeseseseses - 


eeL 
?:CLEAN TERMINATOR FROM STACK 
::SAVE THE RESULT 


;;POP STACK INTO oF 
;;POP STACK INTO Rl 
3 3 POP TACK INTO RO 
4 


RE 
!CLEAN PARTIAL FROM STACK 

iiSET A TERMINATOR 

{TYPE UP THRU THE BAD CHAR. 


te op “CR” 8 “LF” 
35 TRY AGRIN 
;HIGH ORDER BITS GO HERE 


O-RS ROUTINES 
« RKEKEREEEKERRRRE REE AKRAA KARR AKRARAAR REAR RRRRRRERRKRRERKARAKKEE 


ix SAVREG 
}SUPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


SES O22: 


! 


SEQ 0222 


COe 
09:57 PAGE 222 


-JAN-78 
AND RESTORE RO-RS ROUTINES 


CZR6KEO RK& FCTNL CTRL DIAG MACY11 30A(10S2) 
10-JAN-78 09:35 SA 


CZR6KE.P11 


33 : : 
33 - : : 
sumer agegeeeuc? ig seeumxt 
biininininn EOS BeBbereere FG bimmane © 
SESEESSYSS wwnxx $ © 555855, 8 i 
eeupeerery yayytateee «6 § o-sozpins 5 : 
x a * FO Oo «x 
ceerecsans, «= gowns | Saeetictied 
om OR CMeD eS eBeesacnse SR OS Om CH eBeS CE smeaeeD 2 * o 8m CO CBem ce eaee -.. . : 
5 EES . 3 
ne sr ae 
AAAARAT TIT cucucscs Se GeO 
SaUZCUNNN SORODDERD 5 Teeososzeene | F 
¢ si es 
a 2>2>>>>>>>> Q & >>> >>> wy ar <3 
~ >>> end - al 2>2>>>>> * 
‘eeevee SESSSEEEORE y H SEESESDODES HADSERESOOREEYs on 
mueetil § fe a = 


047260 o00024 


oo0022 
0022 
50005 
oo0022 
oo0022 
500348 
hap8z8 


sain, «6 Muneneeees« SRERERGS 


saceaNeNMes «© GERISNEMENE ERRAND 
x 


KRKRKRKRAKRKRAKRKRKRA KRARAKRARAKRKRARK 


BE5ESS00ER05 555455655488 BE5G55h558048 


een aaaae SeeaR cen eeeeaacaaneceeTceemmee ort aneunee 


DEE hk dk nd a ad wk mh nd od ond dd nd ad od ed ad dd ad a ad nd Od dd dd od ad ed ad ed od dd nd dd od a ad Od od od ad dd dd 


| 





CZR6KEO RK& FCTNL CTRL DIAG MACY11 
CZR6KE.P11 10-JAN-78 09:35 


22 
ait 


047206 o000e4 
000340 o00026 


1S 047520 042527 





10046 
16600 000002 


Burdo8 B7E888 oyzyz0 


aH rt 011646 
741 BOaaae ooooo4 ooo00de 


POO PUTUTY UU FUTURO FUTY FORUTUTY FUTUTUFUTD FORD AURURUTUTUTU UFO FUFORDnOrU FORDTU PoruTU FU rurU Foruny rurunD FurunD none 
DTU LON ODD VOU FOV OODITA LO OBBNON LO ODD VOU EK OBB URE | 
222 


ee ee ee ee ee ee ee ee ee ae ae ae ae ee ee ee ee Pee ae be bee be be bee ae ne be ae be be ee Pe a pe 


uy 

wo 

fe 
Nv 
tr 
=M 
ee 
wc 
Wu 
-o 
wo 


30A( 1052) y*y>-y * rr S7 PAGE 223 SEQ 0223 
POWER DOWN AND UP ROUTINES 


SPWRUP: MOV nas Slats? ;SET FOR FAST DOWN 
MOV $e 


Hite BSe rhe ane: 


sa ihe 1s tt OF 
ne 
an ee aq) & ARIS 
MOV (5P)4+’RI TACK INTO RI 
hoy $ Bical amavec! er DOWN VECTOR 
MOV #34 WRVEC+2 ;:PRIO:7 
SPURNG: Hi SPOWER REPORT THRLPRPEE AEE "buPRi rer 
eee TT HL Seerone ae, POLIER DORN “RS COMPLETE 


SSAVRE: THE SP HERE 
SPOWER: .ASCIZ <15><12>"POWER™ ” 

N 
.SBTTL +Ree DECODER 


: ee Ete eH REND THe NT OUER BYTE OF THE “TRAP” INSTRUCTI 
pe S ROUTINE WILL PICKUP THE L TRAP” TRUCTION 
START NG ADDRESS 


e Te THE DESIRED ROUTINE. CR OtREN USING Rae JPALE eo OBA T WILL 


mov <RO) RO ae TRAP 
ROW BSTRPADCRO) ,RO HINGE 198 70 FAB. meted: 


;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 


STRAP2: MOV (SP) ,-(SP) ;;MOVE THE PC DOWN 
MOV 4(SP5,2(SP) $s OVE THE PSW DOWN 
RTI :RESTORE THE PSW 


-SBTTL TRAP TABLE 


ieeyt TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
#BY THE “TRAP” INSTRUCTION. 


: ROUTINE 
$TRPAD: .WORD STRAP2 

sty  ;CALL=TYP TRAP+ (1 401) TTY TYPEQUT ROUT INE 

TYPOC }:CALL=TYP TRAP+2( 104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 


E02 


10-JAN-78 09:S7 PAGE 224 


SEQ 0224 


GET SOFT-SWR SETTING 


TRAP +6 ( 104406 ) 


* CALL=TYPOS 


; ; CALL=TYPON 


+ CALL=TYPDS 


= 


TRAP TABLE 
SGTSWR 


MACY11 30A(10S2) 


10-JAN-78 09:35 


CZR&KEO RK& FCTNL CTRL DIAG 


CZR6KE.P11 


ANY ERRORS 
EXPECTED ERRORS 





ir nuns 


a es ee 
dese S ayes gy RE SESES 


ante 


eel BB ee Ree 
> ae i riaaienlecioeiaekontanbecionl 
2 = EEEECESSCOSESS. 


REQ EQ&, BQ OQ ELL LLB LEBEL PR PEPER LPR BR LPR PR PROP O 


tO 
or 
SHEESH He Sete +++ 


#2 ememeapomn BEE 


as Seon ps ubetataratatit tal 
aie coe stliceessnnsiies 
diddaddddddtedddttdddes Ba8888 


eee ee 
eee Wonsyees SSS SS SSS SSSSS" 


ee 


STERM=. - 


ie ee tated tr top ts] 
— 


B Sbb20000000000000000000008 


BISIDISI BOTA RRR AR RR Bowe DRT 


Gd ed dd rd ed ad ed ad oad od a md oad ed ad nd ad ed ad ad wd od Od ad ed od dod 


CZR&EKEO_RK6 FCTNL CTRL DIAG MACY11 30A(10S2)__10-JAN-78 09:S7 PAGE 2e5 SEQ 0225 
CZR6KE.P11 10-JAN-78 09:35 DATA PATTERNS 


POVTURFUFURBUFUFBPOFUFOnD 


Fa TOR SRO SRR EERO SRS 


;DATA PATTERN 4 


LO FREQ. PHASE MIX 


12193 .SBTTL. DATA PATTERNS 
12194 ;DATA PATTERN 1 
12135 : PATTERN IS ALL ZEROS 
1813 ;DATA PATTERN 2 
12198 : HI-LO FREQ. MIX 
12199 2 PaToe: 
le 177777 177777 
1ee0} 177777 177777 
i 25 177777 ees 
1 Se 
1 
1 1 1 353 
15308 42 rahe beoese 
1 052525 
cl Bas ee ae 
1 12 1 77252 
12213 047554 177252 177252 
12214 0475 172765 172765 
isi 04 172765 172765 
1221 ;DATA PATERN 
15512 : Mi PREO. PHASE MIX 
iee13 047562 PaTo3: 
ises] Birets S00008 £99888 
LE ae liter ae 
1 74 177777 
1 bana00 
ise apge08 a93808 
1 1 177777 
: 77777 77777 
i 7610 1777 agaad 
1 7614 taaaaa 000009 
1 7616 O00000 600000 
: 04 177777 177777 
1 
1 ° 
i Bareee PATOY: 

1 5 ess Deeecs ese 

le 7626 052525 

le 7630 1 125252 

is i {5e5e5 

12s Guzese Oeses Og 25e8 

12248 O47642 125252 125252 


CZR6KEO RK& FCTNL CTRL DIAG 
CZR6KE.P11 


ee 


seen 


rv 
: 
22P2P222222229002 


RRARR 
8 


a 


2 


PORUFOURy 
NS i 


RR 
oad 


5 


PPPPPPLPPPLIPPIPE 


8 


Sasaeenseee 


ruorururorururoru 
233 


WWW 
Pan 


forururururororururururorururururororurorurururofurororururorurorororurupurururorururorururorurururo ————— 
tu RNS 


LU 


Sona SSSRERE 


eee 


orcVMoO 


RLDRRPEEEADR ANA 


¥? 
dee 


10-JAN-78 09:35 


OSeSeS 


tata asta a 


rena 
raracacntate 


Pe ben be bt Ben 
i 
Ww 


MACY11 30A(10S2) 
DATA PAT 


10-JAN-78 09:57 PAGE 226 
TERNS 


;DATA PATTERN 5S 


batos: 


;DATA PA 
PATOS: 


;DATA PA 
> 


;DATA PA 
PATIO: 


MAX PRECOMP. PHASE MIX 


Tren 6 
ROTATING BOUNDARY PULSE PRECOMP. 


TTERN 7 
FIELD OF ALL ONES 


TTERN 10 
ROTATING CELL PULSE PRECOMP. 


0264SS 
113226 


SEQ 0226 
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CZR6KE.P11  10-JAN-78 09:35 DATA PATTERNS 


7 04551 
18382 637706 03324 taeda 
12307 7772 151322 151322 
1 7774 4551 4551 
1531 [32 d2e783 
toatl os0002 D26455 O26455 
tess Geten bless ise 
12314 l2 
tele Gemois dpuati delat 
1 ai$ Bepote 132264 132264 
: 318 os0020 055132 055132 
1 ;DATA PATTERN 11 
1 : SHIFTED 1 IN A FIELD OF ZEROS 
i 2 Patil: ; 


PRES 


rurururururururorurururururururory rm 





RAIA BEES 


fururororu 

seetaaes 

Se be 
wn 


:DATA PATTERN 12 
: SHIFTED O IN A FIELD OF ONES 


BB 0 bb ee 


PaTi2: 
1777 177771 
1777 1 
17777 17777 
177767 177767 
eg os0074 135535 155939 
1776 1776 
0501 177577 177577 
0501 177377 177377 
D501 176777 176777 
2 0501 175777 175777 
2354 OS0110 173777 173777 
2 DS011l2 167777 167777 
ese Bablle 18727 130544 
e358 050120 077777 077777 
2360 ;DATA PATTERN 13 


102 


O-JAN-78 09:57 PAGE 228 


SEQ 0228 


AC 1052) h 
ATA PATTERNS 


MACY11 30 
D 


O RK6 FCTNL CTRL DIAG 
E Plt 10-JAN-78 09:35 


eReK 


c 
Cc 


2 
o 
rs ? e 
as re me 
Z unum nm ~“Z A ROR AR ARR RAR 
f es a FREER EER GE E BSGuSSORRAARA 
~ Mouauoa @y NRUNacccaaae Fe Sears. 
ee a. ee a ee 
Ls] aq vr qw 
£ i a. 


ao Lee 


NUGGET TETAS BSAA anz, 


a mae | 
 adateivateaie aa aaa aiaiai aie EERE EE 


Cucucucucucu cucu CuquauCuCuCucuCucuCucucuqucucucufucucucuducucucucucucucutututy 
UE hd dh dd ah ad ad da a add a ad dd a a de a a ad ed a a ad ah ad a ad ad ad dd ad ad ddd ddd 










CZRGKEO RK& FCTNL CTRL DIAG MACY11 30A(10S2)_ 10-JAN-78 09:57 PAGE 229 SEQ 0229 
CZREKE.Pil 10-JAN-78 09:35 DATA PATTERNS 


077777 077777 
be0S60 177777 177777 


;DATA PATTERN 16 
COMPOSITE ROTATING 


PaTio: 
072307 072307 
135143 135143 
15646 156461 





4356 
1672 Oeie 2 
0307 
14 1143) 
16 04616 
12307: 167063 
1514S 1514S 
164616 164616 


ve a a a at a a at a at a a a 


BOVTRLO OBO NON LOW O00 s 


ee ee ee ee eee ee 
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CZR6KE.P11 10-JAN-78 09:35 FIELDS AND VARIABLES FOR OPERATION CHECKING 

12440 .SBTTL_ FIELDS AND VARIABLES FOR gee rar K 

12441 024000 CSIERBIT=e4000 ERROR bivs op8R & CTO 

le44e 00 CS2ERBIT=177400 G8 5 ERROR BITS 


DSERBIT=70 Poe os Ue oe at 


;SPOLSS, DROT, TRcLo 


Ge Peet. 


GTED § R ten GTED) 


WstwW 


(COMPUTED) 


. 


ee 


20 (COMPUTED) 
; WORD “ts ey END OF OPERATION 


Pee ET yyy yyy 


Born wre Oba Ie 








omwe Ooo0000 CO0000 
ee 
: 






1774 
1 
1 
1 
1 
1 
1 I 
t JO 
: 000000 
1 
1 
1 
i 
1 000000 
18466 r : : ‘ ots REAL TK ; SECTOR 
1Bdee —— RR=BITO + BEATE ECTED DRIVE BUS PARITY ERR 
1CueE 1 R Te, ‘OR DRIVE BUS PARITY ERROR 
ieez poop EreRme BIT i 
i 3 0001 pe ERR te OOo 
14 70 0002) SPOERR= 11? — 
18472 repeat 18 ;CYL eR RROR 
12473 TDRERR= Tio jit SS ERROR 
tears Ob see: BiH aie 
157B 02 NC = BIT1 : RROR SET ERROR 
1e4 O04 RES iti 
16478 100000 R= BITIS DRIVE BUT nO” ROR SET ERROR 
12480 OS0354 oD0000 GRP2ER: . ERROR FIELD 
12481 000001 CHERR= B TO g Seecerese 
12482 oo0002 Bet RR= Th CK ERROR 
i; BBB pores: Hi peta sie bene” 
1e4B5 000020 OPI RRe iv DATA. HOR ieee ERROR 
ie rested BYE RR BITE ata BR 
i 050356 000000 GRP3ER: . 
a ee se hi AE ia 
ei; BRRES eee LURE Ete ac cme 
12495 000040 NEMERR= BITS ;NON-EXISTANT RENORY ERROR 


a ee eee ee + 


LOe 


KEO_RK6 FCTNL CTRL DIAG MACY11 30Q(1052) _10-JAN-7 :57_ PAGE 23 
ESREKEC PKG FCTRL shir be bos 308k Pee OaBtna Es PaR OPERATION AHECKING ome Gnas 
12496 000100 RR= BIT :UNIBUS PARITY ERROR 
18336 000200 HEERR= Bite Ned FUNCTION ERROR. 
1 050360 000000 GRPHER: |WORD 0 ;GROUP 4 ERROR FIELD 
+ 4 . 
18801 HS RR= 119 ; 84 ERRGR 
1 BAERR= BIT 'BUS ADDRESS ERROR FLAG 
12503 000010 CYLERR= BITS ‘CYL ADDRESS ERROR FLAG 
1 TRKERR= BITS TRACK ADDRESS ERROR FLAG 
1 SECERR= BITS SECTOR ADDRESS ERROR FLAG 
12507 O0S50362 os444 GRPYMS: EM10 
{sets ae 45 FA y 
I uae M1 
I 456 M1 
12511 EM13 
12518 EM14 
1251 
ae GRP3MS: Fhe 
M1 
ig mt 
251 EM18 
Fred 
EM2e2 
GRP2MS: M23 


23 anenEs 


z Patnini nin 


GRP IMS: 


SSSSSSSSISSEIESS BGES USES EES 


S38 





M40 
M4. 
M4 
M4 
EM4S 
GPSUMF: .W 8 ;GROUP E UMMARY FLAGS 
1ST= BITO ;GROUP 1 E SET 
GRPeST= BIT1 ;GROUP 2 ERROR SET 
essl GRP3ST= BITe ;GROUP 3 ERROR SET 


ee 0 0 0 


— | 


CZR6KEO RK& FCTNL CTRL DIAG 
78 09:35 


CZR6KE.P11 10-JAN- 


BB8BS8 


bb 0 bb 


a | 





0 


sass ver 


MACY11 a ag + 


10-JAN-78 09:S7 PA 


ELDS AND VARIABLES FOR OPERAT 


_- 


cneuns 





a Sm SET 


PORTING TO Tbe 


7PACK ACK/ 
/ORIVE CLEAR 
/UNLOAD/ 

“START SPINDLE’ 


/RECALIBRATE/ 


/OFFSET/ 


/SEEK/ 
“READ DATAZ 


/WRITE DATAZ 
7READ HEADERS/ 


/WRITE HEADERS/ 


ON A SHECKING 
‘GROUP 4 pe NOt RECEIVED 


GG PR the 


THAT ARE 
NG PERFORMED. 


; ADDRESS OF BaRE CT MESSAGE 
DRIVE CLEAR 


i TLLEGAL OPERATION a3 


SEQ 0232 


CZR6KEO RK& FCTNL CT 


CZR6KE.P11 


ae 


tattle 


bo 


NOU LW 





taal 









7 






47 


inners 


tT 


EER 


te 


ae 
7 





1) 





0 






MUUe 


*T 


bb 


ZFERERBRERLS 





+747 


ee 0 tb bb bb 0 0 


Rants 






ee 0 0 8 0 ee 





DIAG 


10-JAN-78 09:35 
127 


a 


Buzsi0 ONSs03 


-_ 


Uh Ee 7 
ue par 
BY Rubzose 


ta 


BERENSON 


MACY11 30A(10S2) 





10-JAN-78 


09:57 PAGE 233 SEQ 0233 


OPERATION MESSAGES 


OPER3O: .ASCIZ 


OPER32: .ASCIZ 


OPER3S4: .ASCIZ 


OPER3E: .ASCIZ 


OPER37: .ASCIZ 


OPERYO: 


OPER4Y1: .ASCIZ 


OPERY2: .ASCIZ 


-ASCIZ 


OPERY3: 


OPER4Y4: .ASCIZ 


/WRITE CHECK/ 


7ZILLEGAL FUNCTION 33/ 


ZILLEGAL FUNCTION 35/7 


ZILLEGAL FUNCTION 37/7 


7WRITE DATA ABORTED WITH BSE/ 


“WRITE CHECK ABORTED WITH WCE/ 


/WRITE DATA ABORTED WITH NON-EXISTANT MEMORY/ 


ZREAD DATA ABORTED WITH NON-EXISTANT MEMORY/ 


/WRITE DATA ABORTED WITH UNIBUS PARITY ERROR/ 


E.Pil 10-JAN ASCI 


O RK6 FCTNL CTRL DIAG MACYL1L 30A(10S2) 10-JAN-78 09:57 PAGE 234 
eSReKe . a docs I MESSAGES 
1 = 





2: 
Is 


~ 


T T 


POO 
04 


+7 


OPROC2: 
OPROO3: 


= * 2 « «# = «= 
o4 Pad Pad eal 


JS 
po 
+ 


OPROOH: 


4] 


ae pe an ba be as ae fn be faa Bane ae me bao ae eae ham Oe Dae Pe bo ee 


3 
: 


tT 


OPROOS : 





PR ERRERRER STS eee RRR E EEE 


Ptatatad 
Bee 


a he pee ee pe 






ee De ee ee ee ee ee te ee ae te es De en fn ee es eee ee ee De en ee ee he ae ee 


0s 
26 1 0 

ee : 11 1 | 
Be 1 01S o47012 117 henoos: 
2700 05161 ra 1 051505 / 
eyo felted Bios Bidets Belts 

pe Bis Gre eb be 

2708 ls 101 tii? 
cake Ge iia gue mmm 
crit Beirie Galil Gsiote Geang 

cris Give GSLs tlds Bisete 

2714 051734 006504 o00012 





-ASCI 
-ASCI 


-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-SBTTL ASCII MESSAGES 


, 
«15><12>/RK611 BUS ADDRESS ( / 


i ee 
/RK611 VECTOR ADDRESS ( / 


7RK611 PRIORITY ( 7 


ZINSUFFICIENT MEMORY. PROGRAM ABORTING. 7<15>< 12> 


<15><12>7TO BYPASS TESTING DRIVE 0, PLACE IT OFF-LINE’ 
e433 133 778 aeet DRIVE 0, REPLACE PROGRAM PACK WITH SCRATCH PACK/ 


<CR><LF>/CHANGE XXDP PACK/ 


<«CR><LF>/CLEAR LOC 40,RESTART PROGRAM/ 


WILL NOT BE _ TESTED. TO TEST DRIVE O,7<15><12> 
AND MOUNT SCRATCH PACK AS DIRECTED. 7 
VES AVAILABLE FOR TESTING. PROGRAM ABORTED/ 


<15><12>/THE FOLLOWING DRIVES WILL BE TESTED/<15>< 12> 


SES 0234 


CZR6KEO RK& FCTNL CTRL DIAG 
10-JAN-78 09:35 


CZR6KE.P11 


~ 
RRAARAK 
RR NNNNN 


“ 


von 


2 

ny 
fae me ee 
Owe 


arr 
at hy 


Ss ESSeErSTSSTD SSDS 
bee 


Seherahatateraranetererareranerenenenerenenohonenenonehonenehhenehenehene nanan tt eaeatses 
NNN 
oo 
OotMoO 
fou 


DEE 
Ore 


—-O~- 





30A( 1052) 


ASCII MESSAGES 


OPRO10: 


OPRO11: 


10-JAN-78 09:57 PAGE 235 


-ASCII 


-ASCITI 


-ASCIZ 


-ASCII 


-ASCIZ 


-ASCII 


<15><12>/NO PARITY OPTION FOR MEMORY AREA IN USE/<15><12> 


“FOR TEST - UNIBUS PARITY ERROR AND/<15>< 12> 


724(8) SECTOR FORMAT DATA XFER TEST BYPASSED/<15>< 12> 





SEQ 


<15><12>/MEMORY SIZE NOT LARGE ENOUGH FOR BUS ADDRESS BITS 16 & 17 TESTS 


ZALL DATA XFER TESTS WITH ADDR >7 


432K/ 
/64KZ 
/36K/ 
7 BYPASSED/<15>< 12> 


€15><12><12>7 *#%% CAUTION *#**7¢(15><12><12> 


“THIS PROGRAM SHOULD BE HALTED BY TYPING ?#C.7<15><12> 


CZR6KEO RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 236 SEQ 0236 
CZR6KE.P11 10-JAN-78 09:35 ASCII MESSAGES 







1Bfa Reeves Baety SBbia? Griese 

ie 4 48 \ASCII /IF HALTED USING THE HALT KEY, THE STATE OF THE DRIVE/<15><12> 
aah 

ae sla fetus 

i57e1 Oe tbe ONaIe4 Ge0l105 

r ae fits Besiit oaes0e 

i é 3 rates ougso3 LASCII /OR CARTRIDGE CANNOT BE PREDICTED. /<15><12><12> 

1 1 

i 1 047116 


pees -ASCII /ALL DRIVES TO BE TESTED MUST BE ON-LINE,7<15><12> 


zee Sez 
Zu: OZ 


BERS § 
eae & 


2 
a 
o 


-ASCII /READY, AND WRITE LOCK RESET. 7<15><12> 


Bepau ee esa saaaceaaaes 


Bae -ASCII /ANY DRIVE NOT TO BE TESTED MUST BE OFF-LINE. 7<15><12>< 12> 
1 
1s05 


SS 


| b= b= bb bh PP be 


-ASCII /NOTE: 2@ND AND SUBSEQUENT PASS RUN TIME IS/<15><12> 


DONOUL We 


pips eeeta 


-ASCIZ 7 APPROX 2 MIN 30 SEC FOR EACH DRIVE./<15><12> 


ee i 


CZR6KEO RK& FCTNL CTRL DIAG 
ZR6KE . P11 


















¢ 10-JAN-78 09:35 
1 0531 

ieee 8310 

1 05311 OPRO1?: 
1 0531 6 

1 0531 

1 S31 

1 0531 

ibeze 0831 

1e8s Bi 

leé 0531 

12838 OS: 

1e83s ' r 

lee 

leé 

lee 

i : OPRO18: 
126 

12eB4E 

leé 

126%E 

1284 

1et 

iss OPRO19 
126 

lee 

128Se 

1286 

1e8SE 

1285S 

12ebe 

1ebe 

1ebt 

lebe 

1286 

1ebe 

1286£ 

i 

OPRO2O: 
168 

i 7 

1 * 

i Ja JIEE 

i + 

1 

te cence 
12881 861130 ; 
le68e 053566 3817 O40S2e 020115 


MACY11 30A( 1052) 
ASCII MESSAGES 


10-JAN-78 09:S7 PAGE 237 


-ASCII 


-ASCIZ 


-ASCIZ 


: .ASCIT 


-ASCIZ 


-ASCIZ 


-ASCIZ 


SEQ 0237 


«15><12>/FIRST 256 SECTORS NOT BSE ERROR FREE. / 


/MAXIMUM DATA TRANSFER TEST BYPASSED/<15>< 12> 


/ 7¢€15><12>70NLY 1 DRIVE. OVERLAPPED OPERATIONS BYPASSED/< 1S>< 12> 


€15><12>MSCOPE: CH1 (TRIG), ES3-8; CHe, E49-2 (AC COUPLE, .2v/CM)a 
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-ASCIZ /CARTRIDGE FORMAT CORRECTION FAILED/<15>< 12> 


-ASCIZ <¢15><12>/PROGRAM ABORTING BECAUSE ERROR THRESHOLD 


RROR MESSAGES 
-ASCIZ /FATAL-NON EXISTANT MEMORY AT RK611 BASE ADDRESS/ 


-ASCIZ /FATAL-WRITE READY AND IE DID NOT CAUSE INTERRUPT/ 


-ASCIZ /FATAL-PARITY ERROR TRAP. PC AT ERROR = / 


-ASCIZ /EXPECTED INTERRUPT DID NOT OCCUR OR WAS LATE. COMMAND WAS: / 
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2 ooo 


GEREKECP IT’ ‘CTocshneye Gacas | "CY SBRAOR AessAces © (O9'87 PAGE es SEQ 0239 











12939 oS42e46 O40S27 035123 000 
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EM10: -ASCIZ /WORD COUNT INCORRECT/ 


EM11: -ASCIZ /BUS ADDRESS INCORRECT’ 


EM11A: .ASCIZ /UPPER BUS ADDRESS BITS INCORRECT (BAG, 17)/ 


EMle2: -ASCIZ /CYLINDER ADDRESS INCORRECT” 


EM13: -ASCIZ /TRACK ADDRESS INCORRECT’ 
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440 046105 
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EM23: -ASCIZ /7ECC HARD/ 
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-ASCIZ 


-ASCIZ 
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/DRIVE DETECTED DRIVE BUS PARITY ERROR’ 


“FORMAT ERROR/ 
/DRIVE TYPE ERROR/ 


ZAC LOWZ 
“SPINDLE SPEED LOSS/ 


/ORIVE OFF TRACK/ 


“CYLINDER OVERFLOW 


7ILLEGAL DISK PACK ADDRESS/ 


/WRITE LOCK ERROR/ 


/ORIVE TIMING ERROR/ 


“NO CERR WITH SOME OTHER ERROR SET/ 


/DRIVE UNSAFE/ 


“CERR SET BUT NO OTHER ERROR SET/ 
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EMS1: -ASCII /CANNOT READ BAD SECTOR FILE/<15>< 12> 





-ASCIZ /TESTING ABORTED ON THIS DRIVE/ 
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-ASCIZ 


-ASCIZ 


-ASCIZ 


/DRIVE ATTENTION 


/CONTROLLER CLEAR/ 


/SEEK TO SELF/ 
: kK 
“UNEXPECTED INTERRUPT / 


/UNIBUS RESET’ 
/RESET/ 


-DATA LATE 
/READING DATA BUFFER’ 


/CONTROLLER ERROR’ 
/SUBSYSTEM CLEAR/ 


/MULTIPLE INTERRUPTS/ 


“BAD SECTORS ON PACK IN AREAS USED BY TEST (CYL 312(8))7<15><12> 


“TESTING ABORTED ON THIS DRIVE/ 


SEQ 0244 


CZR6KEO RK& FCTNL CTRL DIAG 
10-JAN-78 09:35 


CZR6KE.P11 





Oe 


a 


el 0 ee 


Baahnnieabnccorrcrrrs 





MACY11 30A( 1052) 


10-JAN-78 09:57 PAGE 24S 


ERROR MESSAGES 
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“THE ABOVE ARE EXPECTED ERRORS THAT DID NOT SET IN OPERATION: 7 


/THE ABOVE ARE UNEXPECTED ERRORS SET IN OPERATION: / 
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i paeibt 


SEQ 0247 


AG 
:35 


snn?e 08 


10- 


O RK& FCTNL 
Pil 


aca 


G11,SREG12, SREG13, SREGI4, SREGIS, SREGI6, SREG17 


-ASCIZ /SUBSYSTEM CLEAR TO RESET SEEK LIMIT ALLOWING HEADS TO RELOAD/ 


“ 
it 
= 
e 
us 
w 
z 
pe 
a 
ll 
fen 
wo 
Qa 
\ = 
iS ~ 
re) wv 
lJ w 
a oO 
WJ oe 
w ” & 
it 4 com w 
ti a & 
& + — 
= as o e 
iim ee SE zt Bus 
tea te oz za ze oa. 
oO cz ee > > ew >Wul) 
e i» we & ui cia 
S ¢ $8 € &.2 tz 
c 6 Cf & & fea 3 foe 
€ § oe w Bo oe ie 
i = . . oh se o ne 
sg ia. ce: ee got c 2 
w i 4 Ww - - nd e ate eo 22 . 
. 4 a FA S ae Fre me Tro on. 
so wae 22 282 PeTeM QuOWOW 
oe ee ee ee 
58 seeeees aan3 «8 
2 te = 555555 = & 


7 
i 
DHO17 
of gues 
it DHO18: 
ats 
eR 
igs 
1566 
1626 
1626 
15Se 
it 
1626 
1206 


—— 


Sinn PO ~A— 8 =] 
“nue “LINN o o 
on Roms Ren eae 3 eegeaegtetetetenel 








9999990000 


Sree scsgniose = eee 






Sy 
pe ESSE SSS So RAB 


8 ad od ed hd oh i oteted tet detent ttt 


BSSSSSSSSSSSSSSSSSS BS 8888S 


| SEREEERITEARION ; PPE PeT eee eet eereeeereetrees 


kk a a ad nd ad ad nd nd nd a md ad nd a rd nd nd Od nd nd nd nd nd od ad dd nd nd ad Od nd ed nd Od dd wd ad ad ad ad ad ad ad wd wd dd md 








_ CEReKEO, 1’ a = CTRL DIAG MACY11 30A( jor ean 4Q-JAN- cB ook pT 248 


| CZREKE.P 10-JAN-78 09:35 DAT OR E 
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13502 061434 000000 DFO1OA: .WORD O 
13503 061436 000 000 -BYTE 0,0 
os ’ HOo2A 
Lee pee _ “Bo 10A 
1 061446 002 000 ‘BYTE 2,0 
LB 1 OFOl1: . 4 
1351 Beles oooreo 000 “Brie 0,0 
13511 1454 000000 OFOLIA: : 0 
eis REINS osrpop BAS Boar 
13514 1 7858 000 ‘BYT 
13515 1464 060052 [WORD DHOO03B 
13518 1466 000006 000000 “WORD 6,0 
1351 1472 DFO1S: .WORD 
i 1496 060 _ “WORD Apis 
i 1228 06 000 :BYT . 
13523 1S02 000001 DFOl6: .WORD 1 
135¢4 Be lepd 003 000 [BYTE 3,0 
1 1 BS26: .BLKW Se 
teey BElERs a: he 8 
i =70376 
1 SPCHLR: erR (RY) ;CLEAR MEM MAIN? REG 
13531 INC INTSET :COUNT THE INTERRUPT 
i SPCPAR: R if ; RETURN 
1 
1 
l 





R 
8 





EO4 


CZR6KEO RK6& FCTNL Ha DIAG MACY11 30A(1052) 10-JAN-78 09:57 PAGE 251 
CZ2R6KE.P11 10-JAN-78 O9: CROSS REFERENCE TABLE -- USER SYMBOLS 


3S 
renee = Azeo 19688 15ee5e 2331 


C3 





2 
Fs 


9593 11530 





SEQ 0250 


CZR6KEO RK& FCTNL CTRL DIAG MACY11 30A8(10S2) 10-JAN-78 09:57 PAGE 2Se SEQ 0251 
CZR6KE.P11 10-JAN-78 09:35 CROSS REFERENCE TABLE -- USER SYMBOLS 


Seon 3 
10401 1 # 
2026 4 7589 7604 7630 7763 7820 8=610369 


8 
118 3 pine 495 5548 
, 1S 306 495 5548 
1 # 11141 
743 10753 10761 10773 10783 #8 10794 
702 7 3693 3932 4438 3868 4628 4630 


206 270 305 308 
45 8972 9156 10253 12463 12481 12490 12500 = 1254 





au 
on 


? 
2 





2100 2113 2127 2141 11184 #11192 11210 11234 
2101 2114 2128 2142 9565S 9716 11184 


196 11 2129 2143 4366 4367 6874 
1 1 ii 


48 2711 4363 4364 4516 7255 


A 4 } } ; 1gsse lesoe 12551 
133 1 1246 1 12494 812504 12553 
1 21 134 3175 12468 1e4686 12495 


2034 2107 2121 2135 2706 5674 6735 
2095 2108 2122 2136 2707 2829 3044 


2109 2123 2137 §7 3137 3215 
1 173 9181 11097 


2110 2124 2138 4568 4569 4623 4624 


~~ 
Ho 
i 
a 
ul 


Ll 
=" 
— 
WwW 
" 
— 
bb be 


BIT 
BIT = 1 ] ib 
ITOi = 1 & 191 
IT0e = 1 & 1914 
T = 19038 1313 
T = 1 8 191 
| T = 1 g 13th 
T = 1 8 191 
iT = 16998 1909 
| TOS = 18988 1208 9361 
ire . i Se aq 63 34 4684 983 9167 12464 1248 12491 12501 12550 
Bitte = 1 & eis 3334 2098 ait 2les 39 538 9558 11265 12473 
BIT11 = 1  } y 2069 2 2lle 2126 2140 2710 9386 11347 
8 
8 


ee 
Ee 


0 © oMOD 
ee be bd Ht bt be 
a atneges 
Jo weun 
non none 
fe cae 
_— 
8 8 d8o 
- a ae rT ae 
pe 
Soereeonenee 
NN i ara 
- Mw + 
s s&s seen 
—_— he 
pig tat ts 
£ = 
> — a _ = 
- 1 


me 


ONDO 
tee 


_- — 


25-5 N y 4 N @ ae Rios 


o 

me 

4 

ee 

w 

" 

: 

s s 
he 

Sir 


me 


meas i 
| mg isles ey 


i 
— 

N 

= 
— 
=o & 
he 
en 
fur 
— 





19238 
a 4 198 10639 
é 4 7 OS 
6 1064 124878 
e 64 111 
ebsbs 4 11135 
es 4164 41 11163 
® 441499% 4 1ll 
4194 1 ¥ 
26938 4169% 
2686 4172 §=6135268 


O04 


c EO RK& FCTNL CTRL DIAG MACY11 SQA C2056) 10-JAN-78 09:57 PAGE 2S3 








CZREKE.P11 10-JAN-78 09:35 CROSS REFERENCE TABLE -- USER SYMBOLS 
T 646 928 4156 
CCLR = Sanat g635e 3505 3559 8126 e402 10242 10269 
cor ar , 78 3147 10040 
~SERRe = H 198 71 3121 4281 10257 10313 10317 
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| CHKOP 105188 12176 
CHKST 1051 105218 
1 e 1 5g 
1 #1 
= au 54 03 12166 
CLEAR = i993e8 3593 #7739 «#7799 #497875 8©8229~—Ss(« 8333 
| UKcAL ges3e 3546 
| SANE | 3 10564 10856 12562 
C 2 124728 
| CP1170= 8 8 S655 5678 5685 6684 
ar 1g3ie 1 11 1 12691 
CRLE = 18328 11547 11586 
ic TR 1S * pb4ie a6! x S648 S680x  Sba2x 
CS 1862 * Bowie : , <i 
esure: opm He RSLS 
CTO = 14 1 
ct RR= 1 
| Trac c 114258 11772 11855 
Bek = 1 
Sade ? 
= 
ty i G 11253 11377 
1 
1 
1 
3 i 
1 
1 
1364 
i310 
Bee Bi 
OFO10A 061434 6916% 6923% 7224*  7231% 
ll 1450 9 135098 
PF otia Betas o13., 395% 31% 82% 
ra 4 Sue Ox Et 
DFOIS 061472 inatdcins imamate ” : 
| 
OFOIG O61 
— OE7e 
| 





10$35 
6809 
8372 


6716 


5687% 


7242 


isi 





610 


1061 
8483 


8468 


6739 


S689 


7248 


‘ 


93% 


Bh 


SEQ 0252 
104S2 §=611109 11137 
9051 9071 
9748 9804 
6693* 6709 6741# 
7369% 7380% #7386% 
1S# wri’ ' 3538 
8S# 14% 3826# 
10220* 135118 


CZR6KEO RK& FCTNL CTRL DIAG 
CZR6KE.P11 


ar 


OHO02A 






aS 


aoe 
882 8 } 


T 
T 
= 
ORVNUM 
ORVRPT= 
I= 
rs 1 
TERR = Ot 
OT = 
BIvERR= Bpo049 
T 1 


4< 
eR eEE EES 


10-JAN-78 


09:35 


—— 


pas Raa ee 


i 


~ 


sagbseeeez® 


N2 


Hea 


= 


Fee 


“No 


‘ 


MACY11 30A( 1052) 


pie 


cal al anne aed ened cand canel elena amantiiiami amd ee ani andand acd anon 
MK eS 


SEgeseasegeaeise Fe 


Oe S503 


~ 


mee 


HOY 


10-JAN-78 09:57 PAGE 2S4 
CROSS REFERENCE TABLE -- USER SYMBOLS 
Ht ee ize 13469 13484) =—s: 13495) =: 13504 
ree 
13497 =. 13515 
133288 
8919% 9959% 10178% 10206# 
10800 
10779 
Bh8, adi. gees, 3613 3811 3852 3879 
10627 
36S4 3693 3702 8203 8285 8293 8393 
3098 3123 86S7 
10608 124718 
10944 8 125558 
20. ERI. 32 uy fie 
‘37 em Be eB 
A ot bl sat B918* 9038 9060 9081#  9091# 
133 3171 
3547 3765S 
2791 
3144 10035 
FF 4 aioe" 3132 3139 3147% 3989 6529 


13S13 
9058 9078 
8516 11408 
8692* 98693 
7 7 
7080758 
9107* 9992 
7022 7538 


SES 0253 
10313 
8695 8703# 
s2 Beal 
8691# 
10159 11400_~—C 
8655 10021 


SEQ 0254 


LS 


10-JAN-78 09:57 PAGE 255 


MACY11 30A( 1052) 
CROSS REFERENCE TABLE -- USER SYMBO 


0186 


RK& FCTNL CT 
Pil 10-JAN- 


SReKE. 


Cc 
c 


134238 
3107 


3100 


ee ad at re a eg ee 


saadsdsadse SaRcUbeElMaleasnnnDaaRuNStS 


8770 8837 9110 132228 
132148 


3813 


3609 


3881 


3854 


132178 


3556 


A coe Sa oa ie EEE 


131988 
7706# 
7221% ##7230% 
3555*  374S# 


8909 8926 


7546 
6922 
3S49% 


x « e mm 
m o™ w 
P| zz “ 

75 & & 

“xan @ 5 
id 

vo 8 8 

~ -~ 


7 # 
% 
aN 
3492e 8 63498% 35378 
3760% #3881* 


~_ 
-_ 


3609 
* 10219 






132288 


8S 





BREE OMe 





te pe er neds 3S ithe. 








8926# 


3583# 








C O RK6 FCTNL CTRL DIAG MACY11 30A(1052) 10-JAN-78 09:57 PAGE 256 SEQ 0255 
ESReKE Plt 1D-3ANe Fe b3:3s CROSS REFERENCE TABLE -- USER SYMBOLS 


130028 
1 # 


1382hs 10177*% 1020S* 


13247 


ninth 
I9RO9G 
Rt '44'44 
Re eanneh 


+7 = 


1, {1,11 


13217 
13213 


trtitt 
+ 


129308 


~ 
> 


erettate 


+ 


TUN Unt 


MONOD 0000909000000C 


th 
NUIUE 


8 
a 
& 
8 
ch 
e 
8 
8 
a 
: 
> 3225% 3239%  3300% 10319% 10321*% 10332% 
& 
& 
8 
8 
g 
a 
a 
a 
G 
x 


4110 4117, 131498 





BSSBRERRRF 
= Fe SOC TO 





a ee ee 


KO4Y 
MACY) 288 REFERENCE TABLE =~ USER SYMBOLS 






















STREAMS FT SI aH an on come | 
enephemeg k's me: Wl BN BGI MN BI Mt RE me me 
1 124518 | 
1 
1 124488 
1 
435944 4 4 46194 474 477 47 4 
4 He oe if S028 SO 3098 
| z oi bi m Gt ie ie 
| 9 6014  80¢ 6063 6095 blll & 6154 
3 Si 70 631 352 
| a a 
149 14 Ma? 3574 626 Bose «Bic? Bele 
SRR gag i 
al pamela 762 RS UES HSH0R HEIDE, HEISE ISG BISNIS 
1218¢ 185 18186 12187 12188 12189 12190 12191 
i iB8ou 41 125528 
Pen 1977 19337, 12ssde 
" ies i 10782 «10892 «124628 
~ = ae 030 
RPOER 1086 idese + iavade “*** 
35 te 1832120598 
RF i: 163812 104018 10407 10478% 10481¥ 10484" 10525* 10562 10565 124998 
ee 
100598 
Se @655« 100468 
1048s 
i 
4 ub 47 4 4g4 7 5777 57 
. we Re Gt Sh BS He OBR 
| 





CZR6KEO RK6 FCTNL CTRL DIAG MACY11 30A(1052) 10-JAN-78 09:57 PAGE 258 SEQ 0257 
CZ2R6KE.P11 10-JAN-78 09:35 CROSS REFERENCE TABLE -- USER SYMBOLS 


IDRERR= $336 gave 4007 124738 
ee S a 1a 13873 


8024 8222 8s394 


38 * S674* 6719% 6735 9729% 9816 10149% 10196% 11406# 
14 


36e¢ q72e8 ee 'Soe0 nee 9687# 93954 10165 10172 


i ue 11886 12688 12691 
4253 4350 4378 4426 44S9 4505 4525S 4557 4578 4611 


seen | oSpg Bch GBS BRGRBRNY 
Hh ES Ep ie ie a fa Bo is Be BR os 


: 


at . 5729 6762 97088 
antes GOL rest F7er0 5Fdgs . Sods 20578 3852, af37" Biéds : 33255 8939. 8424. anebs 
8597" sou, 1909s istete Bite" Am} Rt 9699 9* 9812 9820 98eS* 93858 
fOTVECs 1 : bs 
WATIM a 1 
eT ie 
WAT r} 
/ 78 1 ise 
WATIS 99i4e 12187 
WAT 99418 12178 
WAT 6 1 
WAT & 
te : iB 
WA a 
WAT! ® lel 
IWA 99268 19183 
| ~ 1 4. Ss 9283 
KIPARe= 1gess 
of fk 1gei8 
kipares 13°53 12970 
x = 19648 
aici isis 
K 1 ¥ 
t pbs 13300 
K 1 a 
1 8 
} 
& 
# 
} 
a 
e 
r 
3° 





ai 
BU 


CZR6KEO RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 259 SEQ 0258 | 
CZR6KE.P11 10-JAN-78 09:35 CROSS REFERENCE TABLE -- USER SYMBOLS 


6808 6863 6892 6933 6968 7051 7092 7111 7153 7168 7188 7289 


ce ee ee 
ae ae 2 SS 


£O@ 
Rey 


/LsTc 036476 

iL. D01612 

| ise DO1 
L.CS1 DO1 


i“ 


Neer 
“8 


rtrd 
MEE 
Z 
9 
= 


L.cS@ 001610 


RES 


sbi8s : 32a: 3858 a eS 


820% 6286% 6728% 8796% sesex 8895 9039% 9061% 9082" 9092* 





a5 
wore 


6560# 7026 93084 909% 10160 10457 10978 11101 11473 
Ce ee oe 
est GEE Ba BSI sows 


8290 8397 8S19 S24 8529 101168 


—— 


he 


4 ‘* ar ea* 9797% 9802 
1 561 
4901 4906 S049 soss $200 5206 
eS2e 8527 


S6S2e 6713% 9759 9801 


<£ 





CZREKEO RK6 FCTNL 
C. E.Pil 





7 








+7 ty 4) 44 


TT 


* * |. = = = = 
+, + 


10-J 


Mae MACY11 30A(10' 


iSuese 
4 4353 
4 4 
749% 710 
rE 22 
74 






4362 438 


a ee 


Sas F840 
gsi 


125808 13228 
13229 

13230 

13237 

126028 

126238 

7242 7248 
10631 

2895 126668 
3087 126878 
$203 127388 
S205 127598 
128298 


———$—$_—_—_ Se 


O04 


)_ 10-JAN-78 09:57 PAGE 
GROSS REFERENCE TABLE -- USER SY 


7362 7369 


nBOLS 
a 
73828 
see. 


7380 


ve 
cea 
is 


; 
itis 


7386 


7 
111Se8 1 


126298 


Preis 
{ies 1 


191 


e055 
114 





apes 3100% 3107 
613% S625 563 
754S* 7703 7705* 
10147 =10194% = 11404 
97378 

9786 9796 


9741 9761 9807 


12104* 12116% 12117% 


e087 5155S S234 
6031 6046 116 
6934 6969 0Se 


| CZR6KEO RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:S7 PAGE 261 
CZR6KE.P11 10-JAN-78 09:35 CROSS REFERENCE TABLE -- USER SYMBOLS 
| genase 3457 116) 128698 
OPROSE ee 11508 i5egee 
| OPTFLG 001664 go ® S 2660% 2912% 3048 3058 
b | Se Se S2e06* 560 61 
See! 8 16 6739 6746 747 SY 
£ lane 9804 9823% 9854 9951 
getrst . 386 5730 6763 6781 8763 
= 
K =s g 
PARN bigs * 
PARPRE= s4  ] 6677 9743 9749 9768 
PAT = ry 4 7971 
PAT 1128 1 ry 
PAT! 11626 1 438 
PAT ll 122398 
ak Neca at 
PATI 1131 1 8 
PATI 1131? isscce 
PATI 1l 5 les4es 
PATI ll l2e36e8 
Pets Hcg 
PATIE6 1 1134S = le42ee 
Peps : 
_ tare 
BS ibees 124948 
4 = } 
PIROVEs 18308 
114 11460 «§€6©1148S) =6114898 11506 
PRO = 1 a el 3036 9828 93943 
a test 
Pays 18578 
Ss 
PRE . ige : aon 
PR7 = 1 8 e759 2942 3042 5633 6686 
PS > t 18 
a ge 1 ci s73% 2780% i12e088*% 12089% 12098 
RDC = 11931 121678 
RDDATA= £3328 O88 4782 4848 4939 007 
2 Fr sss9 5878 pean 964 
3261 41 6463 64Y91 66 6809 
ROGATE= 100000 20898 
ROLIN = ORG ait 12005" 12 a. 6557 73902 8197 8483 
T= 4] 3a 
Bre. § sre Bebe HELGE? ssc 
REALBA OS034e2 10402 





9815 


2058 5685 6677 
9748 


| 
} 
*# 4901 4906# 
*  9749%  9768% 


5371 S444 5548 
6190 6247 6305 
8051 8129 





COS 


— 
— 





S6Si# 5729% 6712%  6762% 


CZREKEO_RK6 FCTNL CTRL _D MACY11 3 -JAN-78 _09:57._PA 
SV eee Cee ete RESO SR APA B NT EB 6 O8: Sick eimBBEs SEQ eb! 
| REALEY Bengus 1c” 124608 
“REALTR 050346 6915 124898 
‘Age 
| REFMT ripe ‘zee we19e 4346e 4422 4SO1¥ 4SS3" 4607" 4667 4726" 4e10*" 6522%  6602* 
ecipe esas §=cedst «(R785 dusts «6 depde 11988 114974 
REPNR = 19319 1B5s68 
RESREG= 9967 10228 10278 10492 10574 10578 10932 10954 121718 
RESTRT 2182 27530 
ao Leet ay, om 
RKCSL 19728 2970 3868s 7535x7921 BDRYE B1zGx B2R2e BNOey Bsayx Best 87308 
* 10167% 10181 10242" 10253" 10267 10269 10269* 10312 11401% 11402 
RKcs2 1g7ge Boers aae7e 7539" © BE5ex 8Be7e 101S%x 10188 10eS1* debi 1010x1999" 11400 
wa 19818 isch 10158 
RK 13 : ot 
1gge8 
RKER 1g7ge 75417700 
RKMR IL 1geee S654x 3702s e209 aza3e © eHODe © eSzee BS27H 8S32¥ 10125" 101264 10252" 1140R% 
19838 
isg4e 
8 
% 
8 
aR 
| 


00001 
SAVREG= 104413 


Sfop1 = TBanis 


iene ged? 1aued«1oeds «cela zi7de EG NE 
1 


393 Jere 4286 4315 4399 4480 4932 6S46 6569 6585S 


REF Ese RAV RKC 
"yg 

BS & 

: 


183 7253 7319 7344 7391 7528 7853 7839 7624 
9114 121728 
Seoris * 1 
CERR= 1 1 # 
SEEK = 0001 ® 7559 oie 7779 78S4 7965 8170 3085 
SELORV= 000101 a 14 Bh us) 3371 ale 458 3S2e4 3565 3636 3684 
1 7 4 8S41 S64 898 
1 . 27478 
124648 
mM 126618 
17# 1 10594 
ade 
4 138338 
1 1 & 
4s 1 
e7e38 1117 112028 11254# 11378 





| 

| 

. | 
ier igaee 13808 ‘Sge8" 7890 7946 6185 8317 8446 8730 8800 688s 9041 


CZR&KEO RK& FCTNL CTRL DIAG MACY11 30A8(1052) 10-JAN-78 09:57 PAGE 263 SEQ 0262 


CZR6KE.P11  10-JAN-78 09:35 CROSS REFERENCE TABLE -- USER SYMBOLS 
SRTFLS 001624 26758 2747" «2750e 2753% 2756s 2862 3054 3262 
SRTINS= 000010 e70bs 2857 2860 
SPL= 

= 19958 9280 9295" «9302 11186¥ 11194" 11212" 11264* 119748 

Ss 

2 1 a8 
SR s 19428 
SSINIT 103018 12173 
erst = ; ' csr a2 » 28386 9889 872111490 
Start 274 : 7 27578 11499 

= 

= goves 3203 3203 32083329 SMS 3380 33913427 349% 3553 3743 3758 


ass] 
Gp 


ae San a one eT eae 


2e8e0 82611775 ~ 811814 


: 


RANPRERAT 


i 


aoa moma 
eORRoRRES 


Fostencceeee kB 


SW10 868 
SWil 867 
ails 968 
SW 1083 
a 4 
Ss 
SWS 883 
su? S81 
9841 





DOO he ee ee bp ee 


mMsr£Vo 
Wwe 


— 





3 


ae 


4 
tu 
~ 
£ 


rc 

~ 
~- 
w 

se 





a8 


bg 


SEQ 0263 


Wwo8= 89 Yee ez uM 
BEos v= 2 = 


pisses Vee Reboot: 


ROOMUOTTIO Ko wD ba Sata) 
Byer sur hos rk 


Breascces oF 8 SRPeaee3 


3 Sane | PEGE 
uu ory oo. ry 0 
> 
Lingo ran 
tl Rar RRasronveR k Roa Rate 
li 4 TFMMNOK ais BTS 
w as a 
ot 
7 * ar 7M-uny wnt TEShh 
all u- T 
pe STR SSLES SOF SAVSon se 
ie eel a 
Fu 
moO 
1z 
ow 
=o 


WwW 

re 

aul 

cue 

on = DOF WIND ¢ N= MMM — 
no @ DT ODK DUN DUDUITOR OF OUD 
ze (8 Ress Bperoragevekows ais 
Ro ~~ « 

= a Tt. 

4 a mer or o 
gf RESBPLSSRESS EE BEE PESEFASEE pope epr ere gl ta aeeens 
EP cucuesrsaicucicy cucucy cucu + + 
—— 

Fa) 
@ 
1 
& 
} 
ra) 
“~ 





00669 
10441 


CZR6KEO RK& FCTNL CT 


CZR6KE.P11 


rte Sgeaeecase Acs SGeeeceres 
peosebebesecorics setae. davehers 


NUM NUUMNMUUMNUNUNMUMNMUUIUUIUIUI- H- 


TCHKWE= 104422 
TGETRK= 104420 
— 
= 


TIMCNT 
TK 
TL 








CZR&KEO RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 265 SEQ 0264 
CZR6KE.P11 10-JAN-78 09:35 CROSS REFERENCE TABLE -- USER SYMBOLS 
ata, 7196 7297 o3) 7334 74 7443 7430 7521 7566 7$91 7617 7631 
7724 774 776 7 7806 vA 7861 7882 7897 7309 7953 7972 7987 
8011 810 811 136 Bi 8192 8204 Be 8268 8288 8324 e739 
8258 By 83 841 $3 nth | 8490 8505 Si 8SS0 8574 8609 862 
8 8801 888 8900 $04 90Se 9065 9072 9087 9099 11442 )~—s: 111477 


Vez popos4 
TR = 

‘Teabags Bones 
| TRIVEC= 4 
| TSSINI= 104416 


2 
19298 
aS 
77 317 3367 3410 3454 36 3665 3680 3732 
2 eee aR Sa Se SS em Re 
3 


4 
ean9 4 en SS44 74 59 o03 «bose SCE be 
he Pe Fe me me Or Be Bn fe ee bel ie 

8021 804 Bi66 8220 8257 8275 821 e442 Bs60 
3 8649 8664 #8718 8788 8879 9035 11427 11456 121738 





| Teter aE eee 
erie 
| tert 1 _ 
Hi $3 
teri 7 
TSTl 7 
TSsTl 7. 
| STi 74 
TSTl ce 
18110 é 
TST110 43 
TST111 2 
T Hie 1 
TSTl 18 
TST14 1 
reg 
TST 
is 
18 40. a 9421 
181 : 
TST 
TSTes 3 
TST, F 
181 : 
TST 
rst a7ave 
TST ) a 3 
Tt us778 34 
TST35 arses S434 
} 


GSREKEcPai’ “lovsaneye Oseas | CY!) SORGES RereneNce TABLE == USER SYMBOLS SEO ozs 











TST36 14102 51968 9435 
TST37 14324 Se768 9436 
TST4 40 9409 
T 14Sie2 J 7 
_ TST4 14 4208 
_ TST4 1$1 
| TST4 15304 erase S440 
TST44 15 4 41 
| TST4S 1 8 us 
TST 16SS4 4 4 
TST4 16 9168 44 
T TBy 8 1 
ret ie Sut M 
| Ter 1 1738 gue 
TST' 17732 be3e8 3448 
TSTS4 DOSE 6e89e 39449 
TST r 63468 
T % 
Tet : 
T Je 64858 Ee 
tare 8 ze 
TST « S 
TST 3 
TST64 & 
TST ry 
TST 48 
Tt s Sui3 
T8170 ge Sue 
TST? 72798 
tars 8 
re174 forte Sues 
i 
TST ry 
Tat iss isleps 
TWATI1i= 180 a. 4241 4370 4450 4519 4572 4633 4692 4745 4775 6878 7032 7491 
TWAT 12= 1 ® 
TwaTis= ; . 4 7 11478 121878 
That ies Si7? (S788 fa S3aq 5088 arg “SATS 35273569 


pees 
UF 
SHORS 
“re 
SoNae 
Soaks 
sa 


a aa 
Do 
ia 
ue 
on 


| 
a a ee ee: He He RE ORB 
He Ah a 6054 ae bell ue es diss ; 


CZR6KEO RK& FCTNL CTRL DIAG 


CZR6KE.P11 


TWAT64= 
TWATBS= 


TWATS8O= 
TWATS6= 


TYPDS = 1 
TYPE 


104426 
104437 


134480 


0440S 
= 104401 





be | and 
- 


ee 


eR 
Scaes 


UIN-@ 
7 


phe 


SEDe 
SRS 


— 


MACY11 30A( 1052) 


8401 


a 


oes 2 
sas sai ran 


ore 
os 
ae 


_ lod 
~— 
Drow 

—woO 
Ae 


—- 


zB3 33 


os 


ee ee eaiond 


ae Gy s 


he 


~ 
= 


09:57 PAGE 267 
CROSS REFERENCE TABLE -- USER SYMBOLS 


10-JAN-78 
8534 8628 86793 
39793 7592 7922 
a we ig 
LJ Bist Biel 
oo s 
14283 644898 «= $4399 
121588 
e8sy 9574 9s79 
19093 «8082 ac75 
5352 98531395 
378 Sas, 10078 
B48 10409 i 1 
10488 13426 
ce 
3144 10533 10588 
6S81 
3339 63888 «= 1Bau9 
10655 124928 
124968 
9910 9913 9916 


121818 


‘ 7958 


121828 
Z 
S 

121838 


2867 
4 


184d 


9659 


9919 


8027 


e318 


9922 


8225 8329 8461 8S96 
ee es 
2878 2886 Eo 
see Sl Es 
Hiceg 146) HIRES 11628 
11838 121598 

8740 8767 esos* 98809 
A A J §7il 7218 7223 
Se a 
13424 

oo Rn Be 
a a la 
9925 9928 9931 9934 


7245 


9937 


SEQ 0266 


7250 


CZR6KEO RK& FCTNL Aas ores MACY11 30A(10S2)_ 10-JAN-78 09:57 PAGE 268 SEQ 0267 
CZR6KE.P11 10-JAN-78 09:35 CROSS REFERENCE TABLE -- USER SYMBOLS 


WCKERR= pooed, 10626 124838 


WLERR = 
WROATA= 000123 


4460 4526 4579 Pay 4699 4763 4828 cane 4 5069 2438 
p2ah 3} 5433 S61 57Se 836 S3ee 00 6092 5ei3 Oe 
0 1S4 2 7419 7514 S34 782 684 7754 980 93 


11208% 11256# 11388 
112e09% ile x uP FA 
4351 114u4 4S06 4558 4612 4673 4734 6528 6864 7021 7480 


2B 


7169 7189 7305 7327 7436 7814 





| 
} 
= 
| RT GAT= 
Sacte = 
ERY 
TY 
TY4 
pe MEPS, 113% 
| x 1 2943 
T 
9616 11781 11978 
| 11569 11578 115838 
AG 775 78 783 
1s a8 5283, ees gree. 22e5Ss8 22568 22578 22es58e 22598 22608 
scMe = AS eeSes 22538 2es4e 2esss 22568 22578 22eS8e 22598 22608 
M3 = O00020 
sea = 500026 at gers 22688 22698 22708 22718 22728 22738 22748 22758 22768 
TL 
TL il r ] 
T 119798 


oO 
oe 
OLnuwO 


ten ie 12838 9638 43 951 64 #9677 «10875 10908 11551 


rei 


49348 4141# 8693 8717 8787 88s9 8870 9027 


Fas 


4 





Suze 


Cc £o, Ve | = a ie MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 269 SEQ 0268 
c 10-JAN- CROSS REFERENCE TABLE -- USER SYMBOLS 


2198 76 4121# 9375 9377 9383* 9405 gsss* 9616 9843 11491# 
or ee 
9564 9570% 9571% 9573 9577" 9578 9616 13414 13417 13423 


e % 
eq a 3ecRe SOLE ete, osigse 32578 S653" S698" $7268 eZee * 9999% 
BC Scie Gs .g282s i8S8ce 18S2es iBSee. 10048 : 1peeds siseae 





DE 3348 

i 

ab Lise 

98 
118368 12164 
Rh 

52608 FO a 

at ie Te 14285 

rs th 

bese 1igee" 11368 11978 12039 

8 
af ACM ER ME co 
seu 

ee 

See 

et SS 
\ : 9527% 995318 

9505 


9508* 9520 9524s 





WR PRBBARORIN 





CZRbKEO RK6 FCTNL CTRL DIAG  MACY11 30A(10 10-JAN-78 09:57 PAGE 270 
ESRene Pit Mba b9: 35 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0269 


10-JAN 
Sixcnt inte 
SNuTST= 481 ’ t & t 7 % 7% 8 
2 2222 2 eee: 
SERIE B He EE ie 
4768 le 53e8 34 o 38 
: es BE Be Bee 
117278 
10% 339 oi" ete 9207% 9218 9240 9244 9388 9405S 
12116 


11586 11890 11961 11978 12036 12039 


peeGs FERRE RST SERRE SSPE GRAS GT RAS 
ee nC 


12106® 121078 121238 





a a a ee ee 


CZR6KEO RK& FCTNL CTRL DIAG MACY11 30A(1052) 10-JAN-78 09:57 PAGE 271 SEQ 0270 
CZR6KE.P11 10-JAN-78 09:35 CROSS REFERENCE TABLE -- USER SYMBOLS 


SSETUP= 000137 2e74Sa 2772 2773 2775 2777 2779 2761 2782 2783 2785S 28le 2815 9204 
ST 9341 Sy 9603 9611 11773 11778 11779 11809 11985 
S1FEx_ 


SSR. Toad be 912 81815 BG B17 AgiB B18 igen dogg aap gems 
| 3 : 

$e 

o3se 

3 


s 
Roos 


e 


334 


segue 


oe: 
“ 
ue 
ioe 
it 


12328 9401 


Bais 


Serine GO0868 3371 94050 = 10285 103881 
PEI series ft * : : ae 1 s ie "Bases Ee "Begs "3e3i "Bera "Sais 
ic ge Ge He Gee ee Gee 
Fier Bes a ig he Ls HG Hie 
# at 11806# 
Ee | He i ite “oma i 6764" 11733 1175S5* 11786# 11788 11794" 11816 
ray mort rose 
+; a 11118% 


=r 
7 
23 
3 
a4 








10973% 10994 


=? 
e 


eee 


teat eae fe 


DROL Oo 


fue 


Ps 
ba 


| con aul ae aunt ae col rl ool ced Pe bo be pe pee 


i 





we 


> Pa 
BSRRRARRKRSEEHREE B 


— 
o 
Bees Ser wwe 


—e 





i 
7 


© tea, 


tr Oe 


iste 


121878 


9246% 
11959 


1is73e 


ests 


ifs 


MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 272 
CROSS REFERENCE TABLE -- 


USER SYMBOLS 


2oge 
GBi4" 9685 
Yo0b8 


1 193 
121778 
121908 


git 3 


ae 


3305 3357 
ms 


ae fir 
a ee 


rr 
@ 


mee Sanone 


be 


SEQ 0271 


iiss i8iags 


9616 9627 





SEQ 0272 


NOS 


: : MACY oA OSE ERENCE TABLE => MACRO NARES 


| RRekEs Prt *°T0-saneve 09:35 











CZR6KEO RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 pa eve SEQ 0273 | 


CZR6KE.P11 10-JAN-78 09:35 CROSS REFERENCE TABLE -- MACRC 

8619 7 11434 =. 114 

en > a Ee ee 
40148 1 4e088 Yel 43288 64 44108 dee § 44908 44 ease erie 4 FI cones 
de u7t s & WB s Weis 48ehe 4 49678 496 ® 3 51168 Sil 1s68 Si 
ee feu, fact fa, fuss Gus, gee fe, feet fer, Gee Be Ele Eo Bee 
a a ae 

one fi Be34e r * §77su 6777" 20 S* §d08e S510 

| 9s Be Be Be BY Be Gf oa ol eh me Ho He fe ka 

jorom See ee at Bk er fies SCR 
Fi Fa an on aa 

| ft ge gg ifaeeog = & 

8613 Soe ig 11633 he 114 

PUSH 13318 34 eS ais. ‘osu loiie idsor tite if ii i isos? i000 {S0g0  *@220 

RESDC 274, H 4 ae poss pe 1 . S47 38 5898 5981 6066 6151 6210 

RKLOAD Bate a3 4 4 14 1 26 S241 5299 5313 
54 4 ses -) vA 37 7 333 2569 597 6018 
eee Re eee ee ee 
4 1 7 6 7 vA 2a98 
a ee es ee a ee 

ee ee a ee a ee” 
page Se S345 5420 S48 SS4 5603 258 eee? ore 500} 143 $17 3e 37 
28 Seq $938 Base 8083 16 s Bai1 393 8646 8686 871 8783 ges? 902 

SETPRI 19318 1 

SEVTOh asises 150Pe 15i9 15i6h 1818 16) LST IBISZ BLES BIST IEICE. HEIGL HELE HEIEB. BIE 

sv jgte os 

SLASH 19318 

SPACE 19318 

STARS & 89 38 211 7 95 S64 3 68 274 
CORRE REESE ee eS 
4976 $03S 5116 5128 5186 5195 Se7S $337 S344 5410 S419 S482 5488 





L —— 


CZR6KEO RK& FCTNL CTRL DIAG MACY11 30A( 1052) -JAN-78 09: ov GE 27 SEQ 0274 
CZR6KE.P11 10-JAN-78 09:35 CROSS REFERENCE TABLE -- a NAME 


ee ee 

ne Ss a a 
4 8300 asia 84 8782 

50 He RE Te Rs Re at Be Be ie 


TU~KH-—-OOnNCOU 
=f 
BUND es 
me 
=O 
or 
To 


| SWRSU , 9318 ere 
TRMTRP 1 ® 12192 
TYPBIN 19318 
TYPDEC 19318 9218 9225 
TYPNAN 1 ve 19318 2808 
Ber UE ae gp eee 
SSCMRE : 2249 2250 2251 2252 2253 2254 2255 2256 2257 2258 2259 2260 2261 
SSCMTM ers, ee 2265 2266 2267 2268 2269 2270 2271 2272 2273 2274 2275 2276 2277 
SSESCA 19318 
wa et 53% am 8 NRE RE ORO OR RO Oe 
186 ; tt 5410 SY ee3e 5S eres 5821 5 5 3 ae bibe 6221 6678 
5333 $33 geod a § 
apse Bes 18126 16180 eis, §=isige §6151b4 «si8P «SBS «= HSIBS «SiG «18122 «Side «18185 «Stes = 1B tad 
SETM 8 . 
SSSKIP 13318 
-EQUAT 17978 1621 
ADE 17978 1799 
KT1L 17978 ©6193 
SETUP 17978 et 
Ei 17378 182is 
: SAPTH seers 2187 
-SAPTY 17978 94 
A RRO Be 
. 1 § 
: 17978 12084 
‘ 17978 11 
: ie 1 
; 17978 1 
. 1 ® 
- 1 & 
‘$§T irae if 
: Tyee 17978 11 
‘$T 7978 116 
S4OCA 17978 # 2155 


CZR6KEO RK& FCTNL CTRL DIAG MACY11 30A(10S2) 10-JAN-78 09:57 PAGE 277 


CZR6KE.P11 10-JAN-78 09:35 CROSS REFERENCE TABLE -- MACRO NAMES 


ABS. 074414 000 


ERRORS DETECTED: O 


OSKZ: CZR6KE One “EECONOS SEQ/SOL /CRF/NL: TOC/DOC=DSKM: CZREKE.P11 


FUN Tine RATIG: 6087 eesesony: 
te? PAGES) 


DOCUMENT PAGES: 275 


